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.TITLE PROGRAM {#15. COURTS # OP 8IT8 SET IN 08W 
/PROGRAM COUNTS THE NUMBER bp.SITS SET TO I IN THE RATA 
/SNITCH REGISTER, BY ROTATING THE VALUE THROUGH. THE: 
/AC ANO CHECKING TO .SEE IP. BIT IP 18 SET, 'THE RESULT 
/IS PLACED IN THE ACCUMULATOR SO THAT IT IS DISPLAYED 
/ON THE CONSOLE LIGHTS WHEN'THE PROGRAM HALTS. 


/relocatable PROGRAM 
/ 



R 

740040 

A 

START 

MIT- 


/HOW FAST ARE YOU? ■ • 

@0i0l 

R 

790004 

A - ■ 


LAS 


/READ DATA SWITCHES INTO ACL 

mm 2 

R 

040022 

R 


. OAC 

TEST . ■ 

/SAVE VALUE- IN TEST’.- 

Si@03 

R 

777796 

A 

/ 

LAW 

®2S • 

/PUT- ®>a@ DECIMAL. INTO AC - ' ' 

00004 

R 

040024 

R 


DAG 

COUNT - ■ 

7AND STORE IT\ IN-COUNT. 

®8@i5 

R 

140023 

R 

A 

OEM 

BITS ‘ - 

/clear location bits TO.'ZERO. ; 

sssss 

R 

ggiigg 

'R 

NEXT" •' 

LAC 

TEST 

/LOAD AC WITH TEST. . ' < : V. • ' 

Ii@p7 

R 

30002S 

R 


4 NO 

Cl 

/©IT -RID OF ALL BUT SIT .1T. ■ - ' 

BR010 

R 

748200 

A 

/ 

8ZA 


/SKIP IF ACii, '' . . ' : - • 

00®i| 

R 

44@@23 

R 


181 

BITS 

/BIT 17®|-f SO- ADD 1 TO BITS® 

§m\2 

R 

208022 

R 


LAC 

TEST 

/GET TEST 

00013 

R 

74®i2® 

A ■ 


RAR 


/ROTATE -1 PLACE TO THE RIGHT. 

00014 

R 

040022 

P 


OAC 

TEST 

/REPLACE VALUE OF TEST® 

00019 

R 

440024 

R . 

/ 

I8Z 

COUNT 

/SEE IF DONE IS TIMES YET® 

00018 

R 

00iiiS 

R 


- JfMP 

NEXT 

/NOT DONEp GO BACK FOR NEXT BIT. 

00017 

R 

200023 

R 

/ 

LAC 

BITS 

/DISPLAY JIT COUNT IN AC @ 

00000 

R 

740@4i 

A 


HLT 


/AND HALT, HIT CONTINUE TO GO 

00001 

R 


R 

i 

JMP 

START 

/BACK AND SIT ANOTHER VALUE® 

00022 

R 

000000 

A 

TEST 

0 



08823 

R 


A- 

BITS 

0 



00024 

R 


A- 

COUNT 

0. 







/ 

****** POINTS 

TO BE NOTED 


/ • ■ 

/*1 . WHY DO- WE-NEED \THE HALT INSTRUCTION IN LOCATION ®f. 
/ • • • 

/*2. WN.Y 18 THERE A »LAW -22»« IN LOCATION'S? WHAT ARE TH 
/ADVANTAGES OF USING A »LAW INSTRUCTION INSTEAD OF 

/ 88 L A C C-i8 fl f . 


WHEN THIS PROGRAM IS LOADED# LOCATION »BIT3" 
/LOCATION 8S3 IS SET TO 0 8 BUT THE PROGRAM ZEROES IT 
/ANYWAY WITH A ?! D2M 8!T8» INSTRUCTION IN LOCATION S e WHVf 
/WHAT WOULD HAPPEN ON A SECON.G RUN OF THE PROGRAM 
/CWITH A NON-ZERO VALUE IN THE P8.W) WITHOUT LOADING 
/A FRESH COPY OF IT INTO' COREf 
/ . 

000000 R . a END START ■ ' . . ' ■ 

g-aag'd r mm®i k . 

SIZE@«0?26 NO ERROR LINES . ' ■ 




PAGE 1 COUNT A SRC- COUNT! EXCEPT CHECKS FOR 0 -AC' INSTEAD OF .COUNTING 


.• TITLE" COUNT 1 EXCEPT'CHECKS >0R 0 AC INSTEAD Of 

/ . . , ' " ' • ' ■ • 



R 

740840 

A 

START 

HIT 



@@@@t 

R 

790004 

A 


LAS 



mm2 

R 

04008! 

R 

J 

. 0AC 

TEST 


@0003 

8 

140028 

R 

/ 

02M 

SITS 


@0004 

R 

203021 

R 

/ 

NEXT 

j 

LAC 

TEST 


00i@9 

R 

741800 

A 

r 

SNA 


/is the acs®? if so®, done 

mms 

R 

swats 

R 


JMR 

DON? 

/YES 

000 07 

R 

500023 

R 

j 

AND . 

Cl 

/SOME an 8ET a IS IT bit 17? 

00010 

R 

74®80i 

A 

./ 

$ 

SZA 


/SKIP IF 0,X*E. IF NOT §1? 17. 

0001 ! 

R 

440082 

R 

f 

£ 

181 

BITS 

/OTHERWISE* ADD 1 TO RXT8*. 

00012 

R 

800081 

R 


LAC 

TEST 

/SET TEST 

@0®I3 

R 

744880 

A 


RCR 


/CLEAR LINK BEFORI ROTATING'. 








/CHECKINS FOR AN ALL ZERO AC 








/DEPENDS UPON ROTATING 








/INTO THE ACo 

@0014 

R 

®4®0g| 

R 

£ 

DAC 

TEST 


0001S 

R 

60®@04 

R 

/ 

£ 

JMP 

NEXT 


@0018 

R 

200022 

R 

/ 

GONE 

LAC 

BITS 


08017 

R 

74mm 

A 


HIT 



00080 

R 

6@@0M 

R 


JMR 

START 


00@2| 

R 

000000 

A 

/ 

TEST 

a 



@@@28 

R 

@00000 

A 

SITS 

£ 

a 





@00080 

R 

/ 

b end 

START 


gJ03§§3 

8 

00^001 

A *L 






$lZ£a®@@84 NO ERROR LINES 




.title pmmm tm counts- # of bits set in .osw 

/PROGRAM COUNTS THE' NUMB1P? OF SITS SET TO I IN THE DATA 
/SWITCH REGISTER, MAKING USE 3F THE m REGISTER. THE 
/RESULT IS PLACED IN THE ACCUMULATOR 80 THAT IT IS 
/DISPLAYED ON- THg CONSOLE LIQHTi WHEN P-ROSiAM HALTS. 


S0000 


/ 

j 

« ASS 

@ LQC 5000® 


30000 

74304® 

START 

NLT 

/HALT AND ENTER VALUE-- FROM 

30001 

?50@04 


LAS 

/DATA SWITCHES, 

50002 

®52ii@ 

A 

LMQ 

/PUT VALUE INTO MG, 

500.03 

1Sii1? 

/ . 

A 

QZM SITS 

/CLEAi_i!TS TO MPtOl 

50S04 

7777m 

/ 

LAW ogs 

/LOAD AC WITH «iS' DECIMAL 

50»0§ 

®90®gp 


■ DAC COUNT 

/AND STORE |N CPUWT b 

90S06 

750000 

/ 

CL A 

mim A6 POP! PIUS? TIME THRU.- 

9000/ 

S4@6®1 

MM T 

A 

as i 

/GET 1 SIT FROM THE M9. • ' 

50010 

750200 

¥ 

SZAICLA 

/SKIP IF AM* eiSAf? AC. 

50011 

45001? 


182 SITS - . 

■/AC NOT i SO ADD 1 TO SITS. 

Si® 1 2 

45002® 

i 

IS2 COUNT 

/TEST TP SEE IF DONE li TIMES. 

50013 

610007 

/ 

A 

JMP NKf 

/NOT DONE, 60 SACK FOR MgHT BIT. 

9i@ 1 4 

21 ® @ i 7 

/ 

LAC BITS 

/DISPLAY RESULT IN AC. 

50015 

740040 


HLT 

/AND 60 SACK FOR ANOTHER VALUE. 

§®@i@ 

610000 


JMP START 

/DEPRESS CONTINUE KEY. 

9001? 

mmm 

/ 

SITS 

0 


§0080 


COUNT 

/ 

' / 

0 

^ $ $ $ $ # POINTS 

TO BE NOTED 


/*!. NOTE THAT THE LMG INSTRUCTION IN §P0ig MAKES USE 
'/.OF THE MO REGISTER EVEN THOUGH NO MULTIPLICATION MOPf 
/DIVISION WILL »g PERFORMED® THE m RgGISTPf? IS VERY 
/CONVENIENT FOR TEMPORARY STORAGE CWHY USE CORE 
/LOCATION WHEN THE MQ IS ALWAYS THERE?]AND ALLOWS FOR 
/LONG SHIFTS INTO THE AC, Y0U § LI FIND THE USE OF THg 
/MO REGISTER HANDY FOR CERTAIN TYPES OF CONVERSIONS. 

/ 

NOTE THAT WHETHER Of? NOT 4 SKIP IS PERFORMED WHEN 
/LOCATION miB IS SMECUTEOf THS AC li CLEARED e 
/ WHAT IS 'IT ABOUT THg CONTENTS OF LOCATION 50P!|i 
/MAKES THIS SO? ALSO®®WHY IS THIS NECESSARY? gWHAT 
/CAN HAPPEN ON THE SECOND TIME THRU AFTFR LODGING BACK 
/TO NX ? IF THE AC 18 NOT FIRST CLEAREDfl 
/ 


030000 


8 ino start 
no ERROR LINES 







/*t. WHEN The SUBROUTINE is CALLED-* 

/ THg ACCUMULATOR SHOULD CONTAIN THE NUMBER OP 

/LOCATIONS TO BE MOVED § I s E 0 THE SHE OF THE TABLE! 

/ THE LOCATION FOLLOWING THE CALL SHOULD 

/CONTAIN THE FIRST LOCATION TO BE MOVISD (THE PIUS? 
/ADDRESS OF THE ORISINAI TABLE).I.E. THE SOUPfCg ADDRESS 
i THE NEXT LOCATION SHOULD CONTAIN THE ADDRESS TO 

/WHICH THE TABLE IS TO BE MOVED (THE FIRST ADDRESS f>F 
/OF THE NEW TABLE), I.E e THE DESTINATION ADORESS 0 
/ 

/CALLING SEQUENCE I LAC CTABLE SIZE) 

/ ' JNS HOVEI 

/ (SOURCE ADDRESS? 

/ (PISTlNATION ADDRESS) 

/ 


/FOR EXAMPLE®® LA6 C&BB 

/ jms hovei 

/ . 145® )TRAILING 

/ 312® ••) ARGUMENTS 

/ 


/STATES THAT Wg WANT 
/TO MOVE CONTENTS 
/OF toes 145S-1G47 
/TO LOCI 3|ii®38!? s 


/THAT IS, A TABLE 2*0 LOCATIONS LONG I THE ORIGINAL TABL 
/STARTS AT LOCATION 143®, THE NEW TA8LE STARTS AT 3122, 
/ 

/*2. the return *»fc" (the address of the location 

/FOLLOWING the JHS INSTRUCTION) IS STORED by THE CPU 
/IN THg FIRST LOCATION OP THE SUBROUTINE CMOVBi), 

/ 


THE SUBROUTINE USES THIS POINTER TO PICK UP VALUES 
/WHICH FOLLOW THE JHS CALL (KNOWN A§ TRAILING ARGUMENTS) 
/ 

/*4. THE "I$Z M INSTRUCTION HAKES IT VERY NICE TO USE 
/NEGATIVE COUNTERS FOR LOOPING CSIT COUNTER TO 9^8 
/COMPLEMENT OP U OF times A PROCESS IS TO BE PERFORMED). 
/EACH TIME'A LOOP of PROCESSING is COMPLETED 0 INCREMENT 
/THE COUNTER 8¥ 1. WHEN THE COUNTER GETS INCREMENTED TO 
/»# THg "X8Z" ALSO SKIPS AN INSTRUCTION ALLOWING THE 
/PROGRAM TO GET OUT OF THf LOOM—THUS DETERMINING 
/WHEN THg ENTIRE PROCESS IS COMPLETED, 

/ 

/*S. IT IS THE 8U9R0UT|Ngf8 RESPONSE®ILITY TO UPDATE THE 
/POINTER,MQWli g ENOUGH TIMES TO POINT PAST THg TRAILING 
/ARGUMENTS BACK IN THE CALLING ROUTINE (HERE VIA »ISZ"). 
/ 

/^6 0 THE SUBROUTINE RETURNS TO THE CALLING ROUTINE VIA A 
/"JMP*" THRU THE FIRST LOCATION CMOVEI). 



/ 

/EXAMPLE OP MOVE SUBROUTINE WHfCM MOVE 
/BLOCKS OF CORE LOCATIONS (TABLES), 


/CALLING SEQUENCE I 
/ 

/ 

/ 


LAC CTABLF SIZE) 

JHS HOVE! 

(SOURCE ADDRESS!* 
(DESTINATION ADDRESS) 


@0000 

R 

@@@000 

A 

MOVE 1 

3 

0 


I 

R 

74003! 

A 


TCA 


@0002 

R 

@40020 

R 

3 

0 A C 

TABLSZ 

0 B 0 @ 3 

R 

220000 

R 

/ 

LAC® 

MOVE! 

B©@04 

R 

@4002! 

R 

J 

PAG 

SOURCE 

i0§@3 

R 

440000 

R 

t 

182 

MOVE 1 

@0006 

R 

22 mm 

R 


LAC® 

MOVEI 

@0007 

R 

@40022 

R 


0 AC 

DESTIN 

00010 

R 

28002! 

P 

t 

MORE 

LAC® 

SOURCE 

@0011 

R 

@60028 

R 


OACt 

DESTIN 

@0012 

R 

440021 

R 


ISZ 

SOURCE 

00013 

R 

440022 

R 

6 

ISZ 

DESTIN 

00014 

R 

44002® 

R 

/ 

ISZ 

TA8LSZ 

@@019 

R 


P 

A 

JMp 

MORE 

00016 

R 

44@@@P 

R 

f 

ISZ 

MOVE i 

@@@17 

R 

62000® 

R 

/ 

JMP# 

MOVC1 

@0020 

R 

530008(? 

A 

/ 

TABLSZ 

0 


@0021 

R 

000000 

A 

SOURCE 

0 


@0@22 

R 


1 

UiSTIN 

0 



/DEVELOP NEGATIVE SlI? 

/FOR A LOOP‘ @ 

/GET SOURCE ADDRESS, 

/STORE IN A POINTER® 

/add >\ TO RETURN »Pt !f SO THAT 
/IT NOW POINTS TO NPICT ARGUMENT 
/GET DESTINATION ADDRESS 9 
/STORE IN POINTER B 

/MOVEI TABLES 1 M 

/ADD I TO LOCATIONS SOURCE AND 
/DESTIN SO THEY' POINT TO NOT 
/LOCATIONS |N OLD AND NEW TABLES 

/ADD I TO NEGATIVE COUNT 
/ARE WE DONE? 

/NO-GO BACK FOR MORE 

/DONE| HOVE! SHOULD POINT 
/TO LOCATION AFTgP ARGUMENTS 

/FXIT—RETURN TO CALLING ROUTINE 
/VIA THE ADDRESS STORED |N MQ¥g| 



MOV g 9 SPC 


i Re i 




/ 

/ 

/@U THERE ABE TWO MAJOR PIPFE^gNCES BETWEEN 
/SUBROUTINES MOVgf AND NDVIgI 
/ 

/ A)TVP£ OF PROGRAM®® 

/ ^ElOCAYAgLE ¥g 0 ABSOLUTE. 

/ 

/ i)TW OF ADDRESSING USED®*® 

* INDIRECT VS. AUTO®INCREMENT’. 

/ 

/^2 @ HOVgf is PglOCATA9LE PROGRAM (RECALL THE ABSENCE 
/Of ,A8S AND «LOG STATEMENTS). LOCATIONS USED STARTED 
/WITH RELOCATA@l6 0 . 

/ MOVES IS AN ABSOLUTE PROGRAM (NOTE THE USE OF 
/«AB8 AND @ LOC STATEMENTS) . LOCATIONS USED STAR? WITH 
/ABSOLUTE im* 

/ 

/*3 0 MOVE! MAKES USE OF INDIRECT ADDRESSING. IT SETS UP 
/LOCATIONS SOURCE AND OESTJN WITHIN ITSELF ® 4l§0 a TO 

/UPDATE THESE POINTERS IT MAKES USE OF “18Z $flUftCF st AND 
/"ISZ OESTJN” INSTRUCTIONS, 

/ H0VE8 HAKgS USE OF AUTO®INCREMENT ADDRESSING. IT 
/SETS UP ABSOLUTE LOCATIONS 10 AND ft as SOURCE AND 
/DESTIN RESPRECTIVgLY. this MAKES for a smaller program 
/BECAUSE LOCATIONS !0®17 ARE 8? RESFRVEO« FOR AUTO® 
/INCREMENT ADDRESSING ANYWAY Cl e E e THEY APE NOT NORMALLY 
/ U 3 F 0 TO HOLD EXECUTABLE INSTRUCTIONS) s SO WHY NOT MAKE 
/USE OF THEM TO HOLD VALUES (RATHER THAN TAKING UP SPACE 
/WITHIN THE SUBROUTINE). 

/ALSO, 9ECAU8E THEY A PIE AUTO* INCREMENT LOCATIONS, MQV|» g 
/OOESN^T NEED M ISZ SOURCE 91 AND ?, ISZ OEST|N» INSTRUCTIONS 
/LOCATIONS SOURCE I OESTJN ARE AUTOMATICALLY INCREMENTED 
/BY 1 BEFORE BEING tJSEO AS POINTERS (SUCH IS THE FATE 
/OF AUTO-INCREMENT REGISTERS WHEN USED WITH INDIRECT 
/ADDRESSING). P4KE SURE YOU UNDERSTAND THE PURPOSE OF 
/TMI "LAW -i« INSTRUCTION USED IN LOCATIONS |«3 AND |07 a 



0 TITLE SUBROUTINE (#2) MOVES BLOCKS 0? CO^E 

/ 

✓esahple of hove subroutine which moves 
/BLOCKS OF CORE LOCATIONS (TABLES), 

/ 

/CEILING SEQUENCE! LAC (TABLE SIIE1 

/ jks Hoveg 

/ (SOURCE ADDRESS) 

/ (DESTINATION ADDRESS) 

/ H I I I ALSO SEE EXPLANATORY NOTES ON PREVIOUS RASES 
/niUFOR SUBROUTINE MOVE I@ 

/ 

3 a@s 


@0 f @0 

0 a % @ & 

300000 

/ 

MOVES 

@ LQC 100 

0 


@@1 @1 

740031 

/ 

TC A 

/DEVELOP NEGATIVE SIZE 

00102 

04@|20 

t 

OAC 'TABISZ 

/FOR LOOP® 

@0103 

777777 

f 

LAW .1 

/SET SOURCE ADDRESS 

$0i@4 

363)100 


TAO* M0VE2 

p&iPJS 

043010 


0AC SOURCE 

/STORE IN A POINTER. 

00136 

440100 

i 

ISZ MOVES 

/ADD 1 TO RETURN "PC" 30 THAT 

00137 

@0110 

777777 

36010® 

/ 

LAW @| 

TAO* M0VE2 

/If POINTS TO NEXT ARGUMENT e 

/get destination address 

@0111 

@40@l1 

A 

DAC DFSTfN 

/STORE IN POINTER® 

00112 

220010 

i 

MORE 

LAC* SOURCE 

/move tablesi ii 

00113 

@0114 

060011 

440120 

/ 

PAC* DEST1N 

ISZ TABUSE 

/ADD 1 TO NEGATIVE COUNT 

0 0 113 

S«@ l 1 2 

A 

JM P MORE, 

/ARE wg DONE? 

/kO_.GQ ®AC« FOR MORE 

00116 

440100 

/ 

ISZ MOVES 

/DONS»«MO V£g SHOULD POINT 

00|t7 

623100 

/ 

JMP# MOVES 

/TO L0CAT10NAFTER arguments 

/EXIT»-»ETURN to calling routine 

@0120 

000000 

T A B L S Z 
/ 

% 

/via THE ADDRESS STORED IN M0VE2 

@@@10 
@0931 @ 

@0000? 

/ 

SOURCE 

@ LOG 10 

0 


00 011 

000000 

OE3T IN 

g 

0 



@00000 

V 

@ end 



sizism 

,21 

NO ERROR LINES 








PAGfc 1 wgvSICl SRC PROGRAM C»n TO SF.AD AND PEVERSf OCTAL DIBITS 

.TITLE PROGRAM f#1J TO READ AND REVfRSI OCTAL BI 

/ 

' / QE.T A SIX PLACC OCTAL NUMBER PROM THE DATA SWITCHES 

/ AND REVERSE THE OCTAL NUMBER, 

/ gMAHPLEl VALUE PROM SWITCHES b 12343S 






/ 

J 

resultant 

VALUE b 694321 






@ abs 



S3 I $0 



3 

a LOG 110 


- 

0 $ I $ 0 

740040 


f 

START 

HLT 




7S@004 


/ 

LAS 

/ GET VALUE PROM SWITCHES 







/ ASSUME VALUE IS f?3<ig« 



742330 



SWHA 

/ 456123 

1 1 

$3103 

848122 


A 

DAC TEMP# 

/ 45612S 

—X 

0 0 | w 4 

S00123 


/ 

AND C70070 

/ 050020 


$0189 

04012! 


J 

DAC FINALS 

/ 850028 

' \ 

00106 

230122 


/ 

LAC TEMP 

/ 4SSI23 


m\ 0? 

64®506 



LRS 6 

/ 004561 


mn% 

500124 



AND C?0®7 

/ 084001 


00111 

340121 



TAD FINAL 

/ 054P2I 


00112 

040121 



DAC FINAL 

/ 854821 


03113 

200122 


/■ 

LAC TEMP 

/ 496123 


00114 

640606 



LLS 6 

/ 612323 


PUS 

900125 



AND (780700 

/ 080300 


00116 

340lg| 


i 

TAD FINAL 

/ @9432! 


0011? 

740040 


/? 

s 

HLT 

/DISPLAY RESULT IN IX 


00|2i 

60018® 


/ 

JMP START 

/HIT CONTINUE TO GET BACK TO 





A 


/beginning for another value® 



800100 


/ 

9 ENP sta«t 


\ 

$ a i g 3 


♦L 





00124 

00700? 

*L 





« 0 1 2 S 

700700 

^L 





SIZEM012* NO ERROR LINES 



00000 

R 

74004® 

A 

REVRC8 

HIT 

0000! 

R 

777772 

A 


LAN ®6 

30008 

R 

040016 

R 


OAC DIGITS# 

00003 

R 

7S@0i4 

A 


LAS 

10004 

R 

74808P 

A 

/ 

RTR 

00005 

R 

74801® 

A 

LOOP 

rtl 

000P@ 

R 

7480 10 

& 


rtl 

0000? 

R 

742010 

k 


rtl 

00010 

R 

640503 

A 


IRS 3 

00011 

R 

440016 

R 

/ 

ISZ DIGITS 

00018 

R 

600005 

R 


JMP LOOP 

00013 

R 

641002 

k 

A 

LACG 

00014 

R 

740040 

A 

f 

A 

HIT 

000 ! 9 

R 

600000 

R 

/ 

JMP RFVRC2 



000000 

R 

/ 

,END REVRC8 



/READ IN DATA SWITCHES 


/MOVE 2 POSITIONS RIGHT so THAT 
/FIRST OCTAL DIGIT IS 6 BITS OFF 
/ROTATE 0 LEFT TO BRING 
/MOST SISNlFg CHAP TO LEAST 
/SIGNIFICANT END OF AC 
/PLACE IN MG 

/TEST END 



SIZFs000|7 NO ERROR LINES 



0 0001 

750P04 


LAS 


/VALUE FOR A ON SWITCHES, 

80082 

040047 


OAC 

A 

/STORE IN LOCATION A @ 


74804® 


HIT 


/HALT TO ALLOW ENTRY OP 

a 0 p o» 4 

750084 


las 


/VALUE FOR B ON SWITCHES® 

0000 S 

340050 


0 AC 

0 

/STORE IN LOCATION g s 

00006 

1.40053 


OZH 

PROD# 

/CLEAR JESUIT AREA 0 

00007 

280047 


U AC 

A# 


$ 0 a i 8 

8400S! 


0 A C 

MCIND# 

/ASSUME HENCE 

00011 

200050 


LAC 

R $ 

/smaller number BECOMES 

*8«M2 

040052 


0 AC 

MPL IgRU 

/MULTIPLIER 

1 : 00013 

740031 


TCA 


/NEGATE B AND ADD A'. 

00014 

340047 


TAD 

A 


^ 000 IS 

7401H0 


SH A 


/IF SUM MINUS, REVERSE k,n 

00016 

600023 


JMP 

ABOK 

/A>B f OK AS IS 

., 00017 

200050 


LAC 

B 

/SINCE Bs»A REVERSE FUNCTION 

00020 

040051 


0 AC 

MCANO 

/OF A AND S AS MPLIER A NO MCANO 

00021 

208047 


LAC 

k 

/ 

00022 

840052 


OAC 

MPLIER 


>00023 

200052 

/ 

4BQK 

LAC 

MPLIER 

/GET MULTIPLIER 

0002 4 

741200 


SNA 


/IF MPLIER»0. all done 

00025 

600044 


JMP 

DONg 


—■, 0^026 

580054 


AND 

Cl 

/GET BIT 17 OF MPLIER 

00027 

740280 


SZA 


/AND SEE IF IT IS 0. 

00 030 

600048 

M 

JMP 

ADD 

/GO ADO IN MgAND TO PROO 

0 0 0 31 

208051 

/ 

SHIFT 

LAC 

MCANO 

/GET MCANO AND SHIFT ONE PLACE 

00032 

744018 


RCL 


/LEFT FOR NEXT TIME THRU 

00033 

840051 


D AC 

MCANO 


00034 

288052 


LAC 

MPLIER 

/GET MPLIER AND SHIFT ONE PLACE 

0 0 0 35 

744820 


RCR 


/RIGHT FOR NEMT TI ME THRU a 

•"Hs 00 0 36 

048052 


0 A C 

MPL IER 

/ 

0 0 0 3 7 

600W93 

j 

JMP 

AS0K 

/GO 8A6K FOR Ng^Y BIT IM MPL SEP 

•31 0 0 4 0 

280053 

/ 

ADO 

LAC 

PROO 

/BIT !7 OF MPLIER WAS NOT 8, 

0 0 0 41 

348851 


TAD 

MCANO 

/ADD MCAND AND STORE TN PP?OR a 

• 00 0 42 

048053 


D AC 

PROO 


00 0 4 3 

600031 

s 

JMP 

SHIFT 

/GO SHIFT MPL1ER AND MCANR 0 

00044 

200853 

DONE 

LAC 

PROD 


0 0 0 4 5 

740048 


HLT 


/STOP TO EXAMINE RESULT JN AC. 

0 0 0 4 6 

608000 

i 

JMP 

START 

/CHANGE A AND 0 AND DO AGAIN® 


000000 

f 

e END 

START 







@ TITU 000 SEARCH PROBLEM 

/ 

/A PROGRAM TO 8FARCH 1 a®®ISP FOR 
/OOO NUMBERS IN the RANGE OF 
/XXXX5I TO MXXX57 g TOTAL STORED IN AC 
/ADDRESS OF EACH STORED IN A TABU 

/starting at 7>m 




A 

9 loc 

AM 


00400 

t@@4!6 

/ 

START 

JMS 

SETUP 

/SET UP VARIABLES 


i§00S@ 

PTRIM0 





000011 

PT«2»lt 




00401 

2SiP10 


LAC# 

PTR| 

/GET A NUMBER 

0 0 4 « 2 

9M43! 


AND 

m 

/LOOK FOR ODD BIT 

@0403 

540432 


SAD 

C31 

/ A NO THE NUH0IR s sg@ 95 

00434 

10041| 


JMS 

FOUND 


0SM09 

440427 


ISZ ' 

COUNT 

/DONE WITH SEARCH? 

0@4@S 

§0040! 


JMP 

a ®S 

/NO 

30407 

200430 


LAC 

HITS^f 

/YES 

00410 

740040 


HLY 




00411 

000000 

FOUND 

0 



004ig 

200010 


lac ptri 

/GET ADDRESS 


00413 

060011 


QACfc PTR2 

/STORE IN TABLE 

i«4! 4 

440430 


ISZ HITS 

/UPDATE HITS 


00415 

@204|| 

A 

JMP«> FOUND 



00416 

000000 

/ 

SETUP 

0 



80 4 17 

140430 


DZM HITS 

/PRESET HITS 

TO ZERO 

00420 

200433 


LAC Ci 17 



00421 

040010 


0AC PTRI 

/SETUP SOURCE 

TABLE 

00422 

200434 


LAC C177 



040423 

04@S11 


DAC PTR2 

/SET UP TABLE 

OF RESULTS 

00424 

777747 


LAW m 3i 



00425 

040427 


0 AC COUNT 

/SET UP TABLE 

SIZE 

004?6 

@20416 


JMP# SETUP 



00487 

777747 

COUNT 

®31 



\ > 

300400 


®End start 



00 4 31 

000071 

*L 




00432 

0SWSI 

#L 




00433 

@00117 

*L 




@0434 

@0@|77 

*1 





$I2E@M43S NO ERROR LINES 





PAGE 


1 


. f TITLE' TABLE SEARCH PROBLEM 
/A PROGRAM TO ACCEPT A NUMBER ■ 
/FROM THE DATA SWITCHES, 

/SEARCH FOR THE 1ST WORD€p B S @ 

/IN L0CAT|0N$"4M«477 



0 010 0 


4 

9 LOC 

100 


* 

0 0 10 0 

740043 

/ 

STOP 

HIT 


/ALLOW OPF8ATGR TIME TO 


00101 

7 53004 


LAS 


/SET THE DATA SWITCHES 


mi m 

740031 


TCA 


/SET UP ALPHA [«A3 


00103 

340121 


DAC 

ALPHAS 

/example of assigned variable " 


00 104 

200123 


LAC 

(377 

/EXAMPLE of 4 literal n ( n 

1 

00105 

340010 


0 AC 

PTR 

/SET UP AUTO®INCREMENT 



003010 

PTRis 13 



/example of a direct assignment 


00106 

777700 


LAW 

m 1 0 0 



0$iP?7 

040|g§ 


DAC 

TALLY# 

/SET UP TABLE SIZE TALLY 

\ 

00110 

220010 

ANQ 

LAC* 

PTP 

/GET ANUH0EP FROH Table 


•00111 

34i|g| 


TAO 

ALPHA 

/(TABLE3*»CA)»RG5ULT 


30112 

75110® 


SPAiCLA 

/RESUL T© f>) A«ORsfTAiLE1 


00113 

600117 


JHP 

POUND 

/PESULTsC*) ACTABLE) 


30114 

448122 


X82 

tally 

/SEARCHED WHOLE TABLE* 


0H115 

@80110 


JMP 

ANG 

/NO 


00116 

740040 


HLT 


/YES 


00117 

200010 

FOUND 

LAC 

PTR 



00120 

740040 


HLT 





00010P 


s END 

STOP' 









PAGE 1 SQUARE SRC 


COMMENTARY ON SQUARE 

NYARY 0N SQUARE 

dSNTS TO BE NOTED 


/*l. NOTE THAT THE PROGRAM IS LOADED AT 2PW3L THIS IS 
/SO THAT 18 ODES NOT SET LOADED OVER CHENCE.OVgRLAV,®- 
/COtlOQUALLV KNOWN AS CLOBBERING) THE MONITOR! AT THE 
/END Of THE PROGRAM WE JUST RETURN TO THE MONITOR USING 
/”CAL CODE 15 s? C THE MONITOR HAS A ROUTINE TO DETERMINE 
/WHICH »CAU ROUTINE” IS SEING REQUESTED, IN THIS CASE» 
/MONITOR ROUTINE 15 IS IN EXIT ROUTINE). 

/ 

/^2,THIS PROGRAM MAKES USE Of AUTO®INCREMEN? REGISTER 101 
/ONCE A SQUARE IS COMPUTED, IT IS STORED IN A TABLE VIA 
/INDIRECT ADDRESSING ON LOCATION 10 (NOTE "DAC* |0 88 IN 
/LOCATION 2W2U THIS TABLE STARTS AT LOCATION g®P®0 s 
/BUT WHEN AUTO®INCREMENT REGISTERS ARE USED INDIRECTLY, 
/THEY ARE PRE*®XNCREMENTEO. HENCE , WE MUST SET UP 
/ABSOLUTE LOG IP TO CONTAIN ”§0i77 8! @ FIRST » Wg LOAD 
/ 58 2 01 7 7 ” INTO THE ACCUMULATOR (THE ”LAC C28I77” IN 
/LOCATION 20004). 


THE PROBLEM IS TO STORE THIS VALUE IN AS 
/LOCATION IP. WHEPi WOULD THE VALUE ”20177” Bg STORED 
/IF THE INSTRUCTION IN LOCATION READ 8, OAC I® 88 ? 

/CHINTl WHAT SANK WOULD IT BE IN?) 

/ 

/ NOW LET ? S LOOK AT THE ”QAC® C10 9 ® INSTRUCTION IN 

/LOCATION 2®00§ @ THE ASSEMBLER SETS UP LOCATION 90304 
/TO CONTAIN A 81 18 h (WHY?) . THE INSTRUCTION «OAC* Ol" 
/I3 A§S6M©LK0 AS 90*3*4 Jl» 000 01 % 0©^ 10*)* 


/ 

OAC 

INTO THE 

LOCATI 

ON POINTED 

TO 

BY 

LOG A 

TI 

/5 

A 


4, ] 

[.E. 

ABSOLUTE 

LOCATION : 

10 @ 




¥ 

! X X 

xxx 



XXX 

XXX 

a 

D AC 



n 

i X t 


XXX 

f} 

IX 

MXX 

XXX 

a 

INDIRECT 

1 

/> 

(XX 

M X 0 

000 

011 

000 

100 

® 

VIA 

LOC 

30 

/ 









BANK 

§ 



IN THIS 



PACE 


BUILDING A TABLE OF ’SQUARES 


.TITLE building a table of squares 

/ 

/THIS PROGRAM WILL build A TABLE OF SQUARES 
/FROM I TO im fOCTAU® 

/THE TABLE STARTS AT LOCATION 2®20® e 
/ 

/THE BUILDING OF THE TABLE OF SQUARES IS BASER UPON THE 
/FACT THAT! 








/THE NTH SQUARE ■ 
/ S 




/ 

| « 



/ 

2 



/ 

2 s 



/ 

2 



/ 

3 ■ 



/ 




/ 




/ 

. AB$ 

$0000 


/ 

• lqc ?mm 


750000 

START 

CL A 

2000 1 

040301 

/ 

0AC NXT* 

20002 

740030 


1 AC 

20003 

040302 

/ 

0AC ODD* 

20 00 4 

280303 


LAC (20177 

20005 

060304 

/ 

D AC* (IP 

20006 

1777m 


LAW 

20007 

040388 

/ 

0AC COUNTS 

20010 

200381 

SQR 

LAC nx? 

20011 

340302 


TAD ODD 

20012 

060010 

/ 

0 AC* 10 

20013 

04830! 

/ 

0AC NXT 

20014 

200382 


LAC ODD 

20015 

340305 


TAD IP. 

20016 

840302 

/ 

DAC ODD 

20017 

4483 m 


IS2 COUNT 

20020 

600010 


JMP SQR 

20021 

740048 


HIT 

20022 

000080 


cal 

20323 

000015 

/ 

15 




0 LOC 80800 

20208 

020000 


.block 108 
,end start 

§0303 

880177 

*L 



■300810 

♦ L 


§0305 

00@008 

*L 



SIZF 82SS306 NO ERROR LINES 


THE (N* 1) TH SQUARE ♦ THE NTH DOD # 
0 ♦ | 



a 

ETC 


/ODD STARTS AT i 9 

/STORE TABLE AT LOG 80gff 
/VIA AUTO INC REGISTER 10 

/SET UP COUNTER 

/COUNT 100 TIMES THRU LOOP® 


/ 

0 

! 

4 

/ 

i 

l+3»4 

4 #>gss§ 

/ (202005 «i 

C80g0|1s4 

fg8gffl21@§ 

/ 

NXT® 1 

MX T®4 

NKT«9 

/ 

1 

3 

5 

/ 

3 

0 

7 

/ 

00D»3 

OODs§ 

OPO®7 


/ARE WE DONE? 

/NO^GQ BACK FOR HOREl 
/YES —CHECK TABLE VIA CONSOLE 
/GO BACK TO THE MONITOR BY 
/HITTING CONTINUE SWITCH 


/RESERVE ROOM FOR THE TABLE. 






/♦♦SUBROUTINE SORTS 
/♦♦Ar TIME OF E M T R Y o 
/ 

/ 


aGUOBl SORT 

/ 


0 0 ?'■ tfl 

« 

030000 

k 

SORT 

0 

0000 I 

W 

34004/ 

R 


Tad (• i 

00002 

R 

04004| 

H 


OAC COUNT** 

0 0 0 0 3 

K 

200041 

H 

AGAIN 

LAG COUNT 

i$0004 

H 

740031 

A 


TCA 

i ' 0 0 0 0 5 

R 

040040 

R 


DaC WOCNT# 

.(301600 

W 

140042 

R 


OZM FLAG 

00007 

K 

541002 

A 


LACQ 

'^V 0 010 

W 

040045 

R 


OAC PT|# 

0 f- 0 n 

tf 

740030 

A 


IAC 

N - 0 0 0 1 Z 

R 

040044 

H 

£ 

UAC PT2$ 

00010 

W 

220045 

K 

£ 

LOOP 

LAC^ PT1 

0001 4 

R 

740031 

A 


TCA 

00015 

R 

300044 

W 


TAO^ PT2 

000 1 0 

H 

741100 

A 


SPA 

00017 

R 

100030 

R 


JMS SWITCH 

/''“X 

‘0/020 

R 

440045 

R 

/ 

ISZ PT1 

00021 

R 

440044 

R 


ISZ PT2 

00/22 

R 

440046 

R 


ISZ WDCNT 

00 0 2 5 

H 

600013 

R 


JMP LOOP 

00024 

R 

200042 

N 


lac Flag# 

00023 

R 

740200 

A 


SZA 

00/25 

R 

600005 

R 


JMP AGAIN 

0002/ 

Nt 

620000 

K 

£ 

JMP^ SORT 

\0 0 0 30 

R 

000000 

A 

¥ 

SWITCH 

0 

00031 

K 

220045 

R 


1&C® P T1 

00032 

R 

040043 

R 


PAC TEMP# 

00035 

K 

220044 

R 


LAC^ PT2 

00034 

K 

060045 

K 


DAG* PT1 

00035 

K 

20004D 

R 


LaC TEMP 

0003© 

R 

060044 

R 


DAC* PT2 

0 0 0 37 

R 

440042 

R 


ISZ FLAG 

00040 

H 

620030 

K 

/ 

/ 

JMP* SWITCH 

0 0 0 4/ 

R 

000000 

777777 

A 

A *L 

/ 

■ END 


&I2fc®00054 MO ERROR LINES 


VALUES INTO ASCENDJN6 ORDER 
CAC)a THE NUMBER OF «ORD$ TO B£ BOR 
CH03 ® ADDRESS OF BUFFER TO BE SQPT6 


/HAVE (NUMBER OP WOS3«l CHECKS 


/PICK UP BUFFER ADDRESS FROM MQ 

/PLACE IN PTI FOi LATE* RgPgRgNC 
/USE TO POINT TO NEXT WORD 


/•A 
/ 8 w A 

/8«A^®0 ok B»A SO OROgR OK 
7B^k<% MEANS A>B SO SWITCH ORDER 

/PT1 HQ® POINTS TO NEXT WORD 
/P?g NON POINTS TO NEXT WORD 
/ARE HI DONE? 

/N0®»50 BACK FOR WORE CHECKS 
/WERE CHANGES MADE ON LAST TIME 
/NO «WE!P?E COMPLETELY 1 DONE 


/GET LARGER VALUE 
/HOLD TEMPORARILY 
/GET SMALLER VALUE 
/PLACE IN EARLIER ENTRY 

/PLACE LARGER IN 2ND ENTRY 
/SIT FLAG TO SHOW 
/SWITCH TOOK PLACE 






PAGE 


LINED 


1 




700401 

TSPs?0040i 




700406 

T15»700406 




7003011 

«SF»700301 




700319 

KP8«70»0312 

A 



59 0 l M 0 



e L£H 

* 100 


•3 ^ | 0 

700416 

/ 

START 

TLS + tfl 



707762 


08 A 



30102 

100160 


JMS 

C»LF 


103 

100141 


JMS 

SETUP 

/INITIALIZE xp and lr 

00|04 

100146 

MORE 

jms 

LISN 

/wait for char, from kbpd 

00109 

940276 


SAD 

(225 

/CHECK. FOR SPECIAL CHARACTERS 

00106 

@00130 


JMR 

LOLT 

/aUI ERASE ENTIRE LINE 

$0 1 $7 

S40277 


SAD ' 

(377 


00110 

600133 


JMR 

RU80UT 

/PUBOUT LAST CHAR, 

®0|!l 

i90i60 


0 AC 

BUFF »t 

/STORE CHARACTER IN SUFFER 

00112 

§40300 


SAD 

C2!9 

VIS CHAR, A C @ R«? 

om i3 

@00116 


JMP 

OUTPUT 

/¥E8 - END OF INPUT LINE 

00114 

72500! 


AKS 

1 

/NO « increment xr, IF < 

00* U 5 

600104 


JMP 

MOPE 

/72 CHARS, GET NEXT CHAR, 

00110 

100160 

OUTPUT 

JHS 

CPLF 

/ECHO A CR^ IF 

00117 

100141 


J MS 

SETUP 

/REINITIALIZE 

00120 

210160 

PRINT 

LAC 

BUFF d t 

/ECHO ONE CHAR* 4T k TIME 

00121 

100193 


JMS 

TYPE 


00122 

940300 


$AU 

£2!9 


30123 

600126 


JMP 



30124 

729001 


AKS 

1 


0H25 

600120 


JMP 

PRINT 


00126 

100160 


JMS 

CRLF 

/PONE WITH ENTIRE LINE 

30127 

600103 

$ 

JMP 

MORE®1 

/READ IN NEXT LINE 

00 13@ 

760300 

P 

lolt 

LAW 

300 

/ECHO n $ 88 

0013! 

103193 


JMS 

T YPF 


00132 

600103 

3 

JMP 

MORE-! 


00133 

760334 

p 

RUSOUT 

LAW 

334 

/ECHO A REVERSE SLASH 

00134 

100193 


JMS 

TYPE 


00 139 

724000 


PXA 


/IF RU8GUT IS FIRST CHAR, 

00136 

740200 


81A 


/DON? BACKUP BUFFER POTNTFR 

00137 

737777 


AXR 

■® t 


00140 

600104 


JMP 

MORE 



o EJECT 


16 



3 3 | 4 l 

033003 


SETUP 

0 


42 

200331 



LAC 

Cl 10 

3 B | 4 3 

722000 



9 AL 


0 0 | 4 4 

735033 



CLX 


3 5 s 1 4 9 

620!4| 


$ 

JOP* 

SETUP 

S P | 4 0 

300300 


/ 

USN 

3 


00147 

700331 



«$p 


3*150 

600147 



JMR 

• •1 

3V?| §| 

700312 



krs 


»*isa 

620146 



J*P* 

LISM 

30163 

000000 


f 

TYPE. 

3 


03194 

700401 



TSF 


03|6§ 

630154 



JMP 

• * I 

33196 

700406 



TLS 


00157 

620193 


A 

J mP® 

TVPg 

00 100 

000000 


W 

GRIP 

3 


30101 

760219 



LAW 

219 

30162 

130153 



JMS 

TYPE 

00163 

760212 



LAW 

212 

$3f 64 

100193 



JMS 

TYPE 

30165 

620160 


i 

JMP$ 

CRIP 

03166 



f 

8UFF 

,8LQCK H0 


300100 



0 END 

START 

03276 

303229 





■30277 

303377 

*L 




00333 

300215 





03331 

333110 

*L 





8Ilf®0i332 k»0 ERROR 



PTCOPY SRC 




A 

® TITUS PROGRAM 

TO COPY PAPER tape 

0 0 ! 0 0 


/ 

i 

. ABSP 
e LOC 100 



700204 

700104 

700201 

700112 

700101 

r 

P§An700204 

rt$A*70(8104 

PSF«700S>ai 

RR0«700112 
«SF»7«mai 


fl 0 1 0 0 
00101 

0 0 | 0 2 
0010 3 

74004P* 

707762 

20066! 

722000 

/ 

A @ ! 

HIT 

DBA 

LAC CW 

PAL 

/halt TO INSERT TAPP TO COPY 

/ENTER PAGE NODE 

/PUT 500 IN LIMIT REGISTER 

0 0 10 4 

700214 

/ 

PSA+lffl 

/PREPARE TO SET PUNCH FLAG 

0 0 | 0 § 

■0 0 1 ft 0 

0 0 1 0 7 

140657 
| 4066P 
140656 

f 

A a 2 

DIM RDFIAG# 

DIM RDIMOXtf 

DIM PCINQX# 


0 0110 

0 0111 
00112 

0 0 1 13 
00114 

20066P 

721000 

700104 

700101 

600113 

✓ 

A a 3 

LAC ROJM0X 

9 At 

RSA 

RSF 

JMP .-1 

/get read index register value 

/PUT INTO MR 
/READ A CHARACTER 

/WAIT for read flag 

/TO GO UP 

00115 

00116 

00117 

00120 

7003M 

500662 

740200 

600152 

7 

A ^ 4 

I OR 8 

AMD C10P0 

SZA 

JMP k e l? 

/GET I/O STATUS REGISTER 
/SEE IF READER OUT OF TAPE* 

/IF 0 @ NOT OUT 
/READER OUT OF TAPE 

00121 

00122 

700112 

050156 

/ 

A @ 5 

RRB 

OAC BUFF 9 X 

/GET CHAR INTO AC 
/STORE IT IN BUFF » X 

00123 
00 1 94 

725001 

@00127 

/ 

A 0 6 

7 

AXS 1 

JMP a„8 /BUFF 

/UPDATE INDEX 

NOT FULL 

00125 

00126 

200663 

040657 

/ 

A a 7 

A 

LAC Cl 

OAC RDFLAG 

/^UPF FULL so SET RPFLASsi 

00127 

00130 

724000 

040660 

/ 

A „ 8 

A 

PK A 

DAC ROINDX 

/SAVE READ INDEX 
/IN ROINDX 

00131 

00132 

200656 

721000 

/ 

A § 86 

LAC PCIMOX 

PAX 

/GET PUNCH INDEX 
/AND STORE IN MR 

00133 
00 134 

70020! 

@00144 

/ 

A 0 9 

PSP 

JMP 4.15 

/SEE IF PUNCH READY 

/MOT READY, SIE IF CAN READ 


/ 





9 

PTCQPV 

SRC 



PROGRAM 

To COPY 

PAPFR TAPE 

03135 

210156 


A© 

10 

LAC 

9UFP 9 x 

/GET CHAR FROM BUFF 

30136 

741100 


A B 

i i 

SPA 


/AND SEE IF XT IS NEGATIVE 

33137 

740040 


A a 

12 

HIT 


/IT WAS® SO HALT 

<5711 40 

700204 


A @ 

13 

PSA 


/START PUNCHING NEKT CHARACTER 

m\ a i 

725001 


A m 

14 

AKS 

1 

/IF SKIP, PUNCH BUFF EMPTY 

00142 

741000 




SKP 



3 314 3 

600105 




JMP 

A«2 

/BUFF EMPTY, 50 READ MORE 

3014 4 

200657 


A 0 

15 

LAC 

ROFL kG 

/SEE IF READ iUFF FULL 

0014 5 

740200 




S2 A 


/IF 3 S NOT FULL e 60 READ 

00146 

600133 




JMP 

A e 9 

/READ FULL, SO LOOP IN PUNCH 

00147 

724000 


A 9 

16 

PXA 



00150 

040656 




OAC 

poinds 

/SAVE PUNCH INDEX 

00161 

600110 




JMP 

A C1 3 

/READ BUFF NOT FULl»«9Q READ 

00152 

777777 


A g 

17 

LAW 

a 1 


00153 

050156 




OAC 

8uff # x 

/PUT TERMINAL CHARACTER IN iUPFE 

00154 

040657 




0 AC 

ROFL AG 

/SET ROFLAG TO NON 0 

00155 

600131 


J 


JMP 

A 0 @5 


00156 



B U f F 

j 

9 block 500 



003100 




©END 

A s ! 


0 0661 

300533 

* L 






00662 

001000 

*L 






00663 

003001 

k L 







SJZE«M664 NO ERROR LINES 



/*1. note THAT MQ8? n SOT 11 INSTRUCTIONS AM NOT DEFINED 
/WITHIN MACRO s S SYMBOL T 40LES THEPfPOPigt TH?V MUST 
/BE DEFINED 8Y THE USER® USUALLY ONE ODES THIS BY 
/DIRECT ASSIGNMENT STATEMENTS AT THE BEGINNING OF THE 
/PRPGRAM®@AS IS DONE IN THIS PR06PAH FOR »T8F w , !S TL8% 
/ 88 K$F% AND 
/ 

/#g e note that the teleprinter is an output device AND 

/AS SUCH, WE WANT TO CHECK ITS ”READY FLAG 88 BEFORE DOING 
/ANY OUTPUT,BUT ALL FLAGS ARE CLEARED BEFORE THE PROGRAM 
/IS STARTED (THE ABSOLUTE LOADED CLEARS ALL FLAGS AND SO 
/DOES THE RESET' SWITCH ON THE CONSOLE), THEREFORE B HE 
/MUST SET THE FLAG OURSELVES® CONSIDER HON LONS WE 
/WILL STAY IN THE LOOP! T$F 
/ JMP ,•! 

/ 

/IF WE DO NOT TAKE CARE OF SETTING THU FLAg @ THIS IS 
/DONE. WITH THE ’*TUS^ 1« M INSTRUCTION JN LOCATION gl 
/GO OVER THE IOT FORMAT TO MAKE SURE YOU UNDERSTAND WHAT 
/THIS DOES FOR US® TLS^i0 ■ 7W4t@, BIT 14 IS SET, 
/THIS CLEARS THE ACCUMULATOR BEFORE THE OUTPUT 
/OPERATION IS PERFORMED® ALL ZEROES IS THE ASCII CODE 
/FOR THE NULL CHARACTER e ® s AND THAT 1 S EXACTLY 
/WHAT IS OUTPUT TO THE TELEPRINTER (LISTEN CAREFULLY). 
/THE IMPORTANT THING IS THAT 100 MILLISECONDS AfTFR THE 
/PRINTING OF THIS CHARACTER IS INITIATED, THE !S READY 
/FLAG 88 IS RAISED, FROM HERE ON IN THEN@ WE • RE ALL SET 


/*3. RECALL THAT WHEN k CHARACTER COMES IN FROM THE KEY® 
/BOARD, THE CODE STORED IN THE KEYBOARD BUFFER TO 
/REPRESENT THE CHARACTER ■ THE ?^8IT ASCII CQO£ * 200, 
/WHEN CHECKING for A SPECIFIC CHARACTER, MAKE SURE YOU 
/TAKE THIS INTO ACCOUNT. FOR EXAMPLE, WHEN CHECKING 
/FOP A FORWARD SLASH V 55 WHICH HAS A 7®i|T ASCII CODE 
/OF 57| WE MUST NOTE THAT THE KEYBOARD BUFFER CONTAINS 
/A 58 S87 8S (37 + 20P). WE READ THE CONTENT OF THE KEYBOARD 
/BUFFER INTO THE ACCUMULATOR WITH A ®&nnn INSTRUCTION, 
/THEN WE CAN COMPARE THE ACCUMULATOR WITH THE VALUE 297, 
/«8A0 C857> f m WE CAN MASK OUT EVERYTHING EXCEPT 
/FOR THE LEAST SIGNIFICANT 7 BITS IN THE AC, 

/« AND (177®, AND LOOK FOR A B? Q 



/PROGRAM ACCEPTS A LEGAL OCTAL ADDRESS FROM 
/TNI KEYBOARD, AND TYPES OUT ITS CONTENTS® 

/ 

/THIS IS k RELOCATABLE PROGRAM WHICH WILL if LOADED 
/BY THE LINKING LOADER. THE LINKING LOADER WORKS 
/UNDER THE DOS SYSTEM AND, THEREFORE« INTERRUPT 
/SYSTEMS WILL BE ON WHEN THE PROSCAN IS LOADED AND 
/STARTED@ IF WE DO MO? TAKE CARE OF THIS, YHg 
/PROGRAM WQNt? WORK BECAUSE IT USES DEDICATED I/a'. 
/THE INTERRUPT SYSTEM WILL PICK UP THE DEVICE FLAGS 
/RATHER THAN TNI «K8P H AND !§ TSF 8f INSTRUCTIONS IN YHp 
/PROGRAM s THE FIRST THREE INSTRUCTIONS IN THE 
/PROGRAM TURN OFF THE INTERRUPT SYSTEMS <PJ g IP|1 @ 





A 

TSF®?@0401 




708486 

A 

TLS®7@@4@6 




700301 

I 

K8F«p70R3@! 




701312 

A 

Knemwig 

A 



R 

700002 

A 

e 

START 

I OF 


@@@@| 

R 

7@S§|4 

A 


ISA^l® 


R 

708416 

h 

A 

TLSMf* 

80033 

R 

100865 

R 

f 

. JMS 

C8LF 

00004 

R 

180047 

R 


JM$ 

SETUP 

@@@0§ 

R 


R 

MORS 

A 

JMS 

listen 

@i@@6 

R 

440074 

R 

t 

182 

DIGIT 

@0887 

R 

340077 

R 


S AO 

(957 

@0@18 

R 

680021 

R 


JMP 

DONE 





i 

/set 

A 

HERE IF 

NOT 

@0811 

R 

300100 

R 

¥ 

AND 

C 7 

@0012 

R 

040875 

P 

£ 

OAC 

SAVE# 

00813 

R 

20i@73 

R 

¥ 

LAC 

ADDSS 

i@0|4 

R 

74401® 

k 


raucli 

@0015 

R 

742010 

k 


rtl 


00 016 

R 

340875 

R 


T AO 

SAVE 

@@@17 

R 

@40073 

R 


0 A C 

ADOSS 

wg® 

R 


P 

£ 

JMP 

MORI? 

0802! 

R 

100847 

R 

f 

DONE 

JMS 

SETUP 

@@@22 

R 

228073 

R 


LAC* 

ADQS8 

@008-3 

R 

74401® 

I 


RALICLL 

@@024 

R 

740010 

I 

LOOP 

RAl 

/3 

@0825 

R 

742@1@ 

A 


rtl 



R 

@40073 

R 


QIC 

ADD8S 


/TURN OFF PI 

/AND API INTERRUPT SYSTEMS 


/IS THIS THE 8YM DIGIT? 

/IF NOT a IS IT A FORWARD .HASH? 
/YES IN EITHER CASE! 

OR 6YH CHARACTER 

/SET DIGIT 


/SET AOORFSS 

/ROTATE 3 POSITIONS LEFT TO 
/MAKE ROOM FOR Ngte DI8IT, 
/UPDATE ADDRESS 


/GET CONTENT 

/ROTATE 4 POSITIONS FIRST TIME 
POSITIONS AFTER THAT 


/SAVE CURRENT POSITIONS 



PAGE 


\ 


@8827 

3 

300100 

R 

0«9 30 

R 

340101 

R 

W3i 

R 

108855 

R 

@@@38 

R 

89l@@73 

R 

W33 

R 

44@0?J 

& 

8RR34 

R 

600024 

R 

00035 

R 

14@073 

R 


R 

750004 

A 

00037 

R 

7402M 

A 

@§@4@ 

R 

000004 

R 

?!0»4| 

R 

i00!0S 

R 

08842 

R 

@4@@7@ 

R 

@0@43 

R 

440076 

R 

@0044 

R 

@00043 

R 

@0045 

R 

000000 

A 

00046 

IS 

w 

@0i0|S 

A 


9W047 

R 

000000 

A 


00050 

R 

177777 

A 


00831 

R 

040974 

p 


08092 

R 

@80047 

R 


@@093 

R 


A 


00854 

R 

7@@40| 

A 


@0058 

R 

6MP54 

R 


@0956 

R 

790406 

A 


00057 

R 

@8i053 

R 


0@@®0 

R 

0ii@00 

A 



R 

700301 

A 


i@06g 

R 

@00061 

R 


0096 3 

R 

700312 

A 


@0064 

R 

@g@060 

R 


1$0@SB 

B 

061l3®0®» 

A 


@@@66 

R 

7@i815 

A 


i0®@7 

R 

l@i@93 

R 


88870 

R 

760812 

1 


@0071 

« 

I@a053 

R 


08072 

R 

@83069 

R 


@0073 

R 

mmm 

A 


@@@74 

R 

777778 

080000 

1 

R 


00077 

R 

000257 

A 

*L 

@0100 

R 

m®m7 

A 

*L 

@91*1 

R 

000260 

A 

♦ L 

@0108 

R 

30000| 

A 

•L 




AND 

C7 

TAQ 

cw 

JM3 

TYPE 

LAC 

ADDS* 

IS! 

DIGIT 

JMP 

LOOP 

D2M 

A0D88 

LAS 


SZA 


JM P 

STAPT^ 

LAC 

Cl 

D AC 

TIMER* 

182 

TIMER 

JNP 

® ® 1 

CAL 



15 

/ 

/SUBROUTINES 

/ 

SETUP 9 

LAW «® @ 

0AC DIGIT 
JMP# SETUP 



/ 

LISTEN 3 

KSP 

J MP a <■ 1 
KR0 

JMP* LISTEN 

/ 

oplp a 

law ais 

JHS TYPE 
LAW aia 
JMS TYPE 
JMR* CRIF 



NO ERROR LINES 


/GET OCTAL DISIT 

/MANUFACTURE ASCII COPS 


/ARE WE DONE?? 

/NOI*-BAC« FOR MORE 
/YESI®CLEaR AD083 NEK? TIM 
/WANT TO CONTINUE? 

/0 DSN SAYS SO BACK TO MONITOR 
/OQN^T NEED TL$<t»f® ANVMORE b 







PAGE 


U-l 


>9009099090900999999&900Q909000909900Q0009099090090< 

PROGRAM ACCIPTS DECIMAL VALUES PROM THE KEYBOARD, 
SUMS THEM AND PRINTS OUT THE DECIMAL AVERSE CStVfi 
TO THE TENTHS PLACE1 ON THE TELEPRINTERS 
USER SHOULD FOLLOW EACH VALUE WITH A COMMA9 TERMIN' 
THE LINE WITH CR @ FOR EXAMPLE! 3,18 s 20 @4 P fC* 1 


■r% 


''N 


/OOP009099909000000000909090009000000090000990990000< 
/ 

7ii3®f A KSP»?0030I 

700400 A TLI®?004Si 

70040! A TSF«7a0*2i 

700312 A KR8a?003|8 

/ 


^0000 

R 

707762 

A 

begin 

DBA 


/RUN IN PAGE MODE 

00001 

R 

700002 

A 


IOF 


/TURN OFF PI 

00002 

R 

705514 

A 

j 

ISA*1« 

/AND API INYgPlitUPT SYSTEMS 


R 

70®4|@ 

A 

/ 

TL3M0 

/INITIATE PRIMT**GET FLAG 

000041 

R 

143126 

R 


02M 

COUNT# 

'/COUNT« « Of VALUES 

00006 

R 

140127 

R 


PZM 

FINAL# 

/FINALS SUM OF VALUES 

§0fl@6 

R 

100120 

© 


JHS 

CRLF 


®@@07 

R 

14013® 

R 

NXT 

J 

DZM 

NUMBW 

/TEMPORARY LOCATION 

00010 

R 

70i3®i 

A 

F 

NEXT 

KSF 



0001! 

R 

6ii®!§! 

k 


JMP 

a * 1 


00012 

R 

730312 

A 


KRB 



00013 

R 

540134 

R 


8 AO 

Cf 15 


00014 

R 

@®0035 

R 


JHP 

ALIPUN 

/CR MEANS LAST VALUE 

000IS 

R 

540135 

R 


SAD 

C254 

/»," separates VALUES 

00®|6 

H 

602032 

R 


JHP 

DUN 


00017 

R 

300136 

R 


AND 

C17 

/RET OCTAL NUMBER 

00020 

R 

040133 

R 


OAC 

temp# 


000§i 

R 

201130 

ft 

/ 

LAC 

NUMB 


00082 

R 

653122 

A 


HUL 



00023 

R 

000018 

A 


12 



00824 

R 

®4|@@2 

A 


IACQ 

/RESULT SHALL.,IN MO 

*30025 

R 

340133 

R 


T AO 

TEMP 

/ADD ON LAST DIGIT 

00026 

R 

040130 

R 


0 AC 

NUMB 

/SAVE IN NUMB 

00027 

R 

600010 

R 

i 

JHP 

NEXT 


@®@3i 

R 

200138 

R 

f 

DUN 

LAC 

NUMB 

/G6T THIS VALUE 

30031 

R 

340137 

R 


TAQ 

FINAL 

/ADD IT TO THE SUM 

i®032 

R 

040127 

R 

i 

OAC ■ 

final 


80033 

R 

440126 

R 

f 

I$Z 

COUNT 

/KEEP TRACK OF HOW MANY VALUES 

i«iS4 

R 

@00007 

R 


JMP 

NX T 







PU OBRAM JO AVgRigl! DECIMAL VALUES 


/ 


was 

R 

20012® 

R 

ALtDUW 

L AQ COUNT 

/GET # OF VALUES 

*«*3S 

R 

@4©04i 

R 


OAC 

/STORE FOR DIVISION 

00037 

R 

200187 

R 


LAC FINAL 

/SET SUM 


R 

653383 

A 


IDIV 



R 

000000 

A 


0 


300 48 

8 

@4@|3g 

R 


OAC RINA IN# 

/REMAINDER iS|TUiNI0 IN 4g 

00843 

R 

@4|00| 

k 


LAGS 

/GET QUOTIENT IN WO 

0 0 0 4 4 

R 

040131 

R 


DAC QUOTif 


§0045 

r 

733i@f! 

A 

/ 

CL M 


88(946 

R 

§00131 

R 


LAC QUO? 



R 

@53323 

A 

NEXXT 

IDIV 


$0950 

8 

§00012 

A 


12 


§§@51 

R 

150106 

R 


0Ac 01GIT, X 

/STORE in table 

00i§2 

R 

641*0? 

A 


L Ago 

/PICK UP QUOTIENT 

30053 

R 

741?00 

A 


SNA 

/CONTINUE IF NOT 0 

30054 

R 

@@0057 

R 


JMP DUNN 

/STOP WHEN QUOTIENT a 0 

00@55 

R 

737001 

A 


AKi 1 

/PUT I H TASlg Fm LATSR OUTPUT 

00056 

R 

600047 

R 

/ 

JWP NEKKT ' 


00057 

R 

100120 

R 

V 

DUNN 

J 

JMS crlf 

/ISSUE CP? AN0 LF 

i0®@0 

R 

210106 

R 

/ 

OUNNN 

LAC OISITiX 


00061 

R 

340137 

R 


. TAO CM? 

/TO MAKE ASCII 

00082 

R 

1001 IS 

P 


JNS PRINT 


00063 

R 

737777 

A 


AKR ®| 

/GIT NEKT CHARACTER»«40RK 







/WAV BACK UP TALSE 

00064 

R 

784008 

k 


P>X A 

/ARE WE OOMe @ ®tafHEN XRsi s VE« 

00065 

R 

7401*0 

A 


SM A 


90066 

R 


R 


JMP QIJNNN 


00367 

R 

20014P 

R 

# 

LAC C256 

/ISSUE DECIMAL POINT » , fS 

00070 

R 

100113 

R 

JI 

JMS PRINT 

4 

00071 

R 

20®I26 

R 

r 

UC COUNT 


00*78 

R 

i40W 

P 


OAC RRH 


00*73 

R 

200132 

R 


LAC RENAJn 


00074 

R 

ssaiit 

k 


RUL 


00075 

R 

000012 

k 


is 


§0076 

R 

@4|@0g 

A 


L.ACO 


i § @ 7 7 

R 

653323 

A 


IDIV 


®0|00 

R 

00000? 

A 

REN 

0 


86101 

R 

641008 

A 


lAeo 


i0l08 

R 

340137 

R 


TAD (860 


00103 

R 

108113 

tt 

ff 


JMS PRINT 


S0|04 

R 

1*018? 

o 

Ft 


JHS CRLF 


0 0 10 5 

R 

S0000P. 

R 


JNP 8C6JN 




PARE ' 5 


AVS 8»C PROGRAM TO AVERAGE DECIMAL VALUES 


1&113 R <300000 A 
80114 R 700401 A 
00IIS « 600114 R 
001.16 R 700406 A 
80117 R 880i|3 R 

00180 R 000000 A 
W8f R 760815 A 
00122 H 100113 « 

3^183 R 760818 A 
80124 R 100113 R 
@0|SS R 680120 R 

000000 R 

<10134 R 000215 A ^L 
00|3§ R 0@@254 A *L 
@0136 8 800017 A *L 
00137 R 00@26@ A #L 
00140 R 0@025@ A *L 

SIZE®$@i4 I 



•re® 

Imp ..i 

TtS 

JMPi? PRINT 



LAW 218 
JMS PRINT 
LAW 218 
JMS PRINT 
JMP# CRLF 



NO ERROR LINES 






Pise 1 DTOASC SRC 0 ?QASC®OCTAL TQ ASCII TRANSLATOR 

.TITLE DTOA«C*OCTAL TO ASCII TRANSLATE 

/ 

; /psogiw translates one is bit word to six 

/OCTAL ASCII CHARACTERS® THE CHARACTERS ARE 
/STORED IN A BUFFER POINTED TO Bi THE WORD 
/FOLLOWINi THE JHS TO QTQA8C, 


sUINC SEQUENCE. 


LAC CHORD TO 8! 
JHS# .DTOASC 
SUFFER ADDRESS 


'hU SLATED) 

■Mini FIRST ASCII 
S TO m, STORED, 


SL08L DTOASC 


s» i 0 0 @ 

R 

000000 

A 

OTQ A 

SC i 




0^0^ 1 

R 

@Sg00P 

A 


LMQ 

/STORE 18 BITS TQ if TRANSLATE! 

fl*8«2 

R 

22mm 

R 


LAC* DTOASC 

/PICK UP STORAGE 

BUFFfR 

adores, 

00£§03 

R 

040020 

R 


0AC PTR# 




0001*4 

R 

44000P 

R 

/ 

ISZ DTOASC 

/SET UP FOR MIT 



00005 

R 

771772 

A 


LAN «s$ 

/KEEP TRACK OF 8 

characters 

00006 

R 

040017 

p 

J 

0AC COUNTS 








/- 

/DO 

CONVERSION 




$0007 

R 

75000P 

A 

/ 

MORE 

CLA 

/clear AC 



00010 

R 

@40@03 

A 


LLS 3 

/HOVE 3 BITS FffOH HO 


000!1 

R 

340021 

R 


TAD (60 

/aod 68 to make 

ASCII 



R 

0600SP 

R 

& 

QACa PTR 

/STORE IT AWAV 



910013 

R 

440020 

R 

/ 

ISZ PTR 

/POINT TO NEXT BUFFER LOCATION 

00014 

P 

440017 

R 


ISZ COUNT 

/ARE HE DONE? 



80015 

R 

608087 

P 


JHP NDRE 

/N0*»*60 SACK FOR 

NEXT 3 

SITS 

00016 

R 

62000O 

R 

3 

J MP $ OTDASC 

/yes—return to 

CALLING 

ROUTJN! 



@0®i@P 

A 


® INQ 




mm i 

R 

000000 

A #L 







SI1E@«P»22 NO ERROR LINES 


26 





U2@R 


St 1 

.TITLE TRANSLATES IMAGE''ALPHA TO SIX.BIT ASttl 

/ 

/PROGRAM TRANSLATES IMAGE ALPHA CHARACTERS TO 3IK»B!T 
/ASCII CHARACTERS*, 

/ 

/CALLING SEQUENCES 
/ 

/ LAC (ADDRESS OP FfSST IMAGE ALPHA CHAR] 

/ JMS* IAf8B 

/ 2 /# OF 8IM®BJT WQRnS 

/ aUF / 81M 0 T SUFFER SDOBESS 

/ 

642800 A OAC642000 /OR AC TO MQ.'..RESULT LEFT IN MS 

/ 


q GL 08 L IA 86 B 

/ 



R 


A 

IA20B 

8 

80001 

R 

i400iSS 

ft 


DAC IMGPTR# 

8 0 00 2 

R 

228008 

R 


LAC® IA26B 

8 8 0 « 3 

R 

74003! 

A 


TCA 

8 0 8 0 4 

R 

040834 

R 


DAC COUNT# 

20003 

R 

440000 

R 


ISZ 14268 

8 0 -3 B 6 

R 

220800 

R 


LAC® IA280 

00087 

R 

040036 

R 


OAC SXBP?R« 

00810 

R 

44i8i0 

R 


IS1 IA26S 

800! i 

R 

744000 

A 

f 

AGAIN 

CLL 

00012 

R 

69 mm 

A 


CLQ 

80813 

R 

777779 

A 


LAW *» 3 

0M14 

R 

040033 

R 

$ 

DAC CNT3# 

00815 

R 

@4i@i6 

h 

/ 

LIS 6 

0081 6 

R 

220035 

P 


LAC® IMGPTR 

00317 

R 

S@0i37 

R 


AND (77 

00020 

R 

@42080 

A 


OAC 

00021 

R 

440035 

R 


1SI IMGPTP 

800gg 

R 

440033 

R 


ISZ CNTS# 

ag£§g3 

R 

S@0@|§ 

R 

J 

JMP MORE 


R 

64li@g 

A 

r 

LACO 

80025 

R 

0«0036 

R 


OAC® 8XSPYR 

80026 

R 

440034 

R 


IS2 COUNT 


R 

741000 

A 


SKP 

30038 

R 

62000® 

R 


JMP® IA269 

■00031 

R 

440036 

R 


ISZ SXSPTR 

00032 

R 

500011 

R 


JMP AGAIN 



800000 

A 

f 

e END 

00037 

R 

800077 

A *L 




SIZg®0@040 


/POINTER TO IMAGE CHA^S TO BE CO 
/PICK UP tt OF SIXBT WORDS 
/MAKE IT NEGATIVE C2^§ COHPLEHEN. 


/PICK UP ADDRESS OF WHERE to sto 
/(S BIT CHARS AND SAVE IT 
/SET UP FOR EXIT 

/CLEAR LINK 
/clear MO 

/SET UP COUNTfi OF 3 

/BECAUSE 3 SXXBT CHARS.PgR WORD 

/GET MS IN CORRECT POSITION 
/PICK UP CHAR TO BE CONVERTED 
/EXTRACT LOWER § BITS 
/OR THE MO AND AC..'.RESULT LEFT 
/POINT TO NEXT JMA0E CHARACTER 
/HAVE WE CONVERTED 3 IMAGE CHARS 

/NO<»-GO BACK FOR MORE 

/PICK UP 8IXST VALUE IN m 
/STORE IT AWAY 
/ARE WE OONEf 
/NQ®« 

/¥ES®@sRETURN TO CALLING PROGRAM 
/INCREMENT SIXBT BUFFER POINTER 


NO ERROR LINE 






/ 

/ UfiMT IN AC AND LINK WILL MOVE 8 POSITIONS LEFT 
/ EVERY SECOND WHEN CLOCK IS ffUNNJNS PROPERLY. 

/ AC®1 AT OUTSET OP PROGRAM® 

/ AC®i IF CLOCK NOT OPERATIVE WHEN PROGRAM STARTS. 

/ IP CLOCK DISABLED FROM CONSOLS .WITH CLOCK SWITCH, 
/ 4C AND LINK ARC PftOlEN^ WHEN CLOCK REENABLED 
/ PROM CONSOLE SWITCH, LIGHT STARTS MOVING A G A 1N a 





$ 

/ 

700844 A CLON@f00044 

700001 h CLSf®70M0S 

/ 


10100 

k 




a LOG 

101 

80 

10100 

A 

700009 

a 

/ 

START 

IGF 



10101 

k 

7S9SI4 

i 


ISA* 

1 0 


10102 

A 

73403$ 

A 


CL A 1 

till 

I AC 

10103 

A 

170117 

A 

e 

OXrt^ 

' C7 


1&1P4 

A 

35$t!@ 

A 

t 

AGAIN 

Q AC 

ACSA 

yen 

10109 

k 

777704 

A 


LAW 

• 7 4 


10106 

h 

373117 

A 


TAD* 

(7 


10107 

A 

070117 

A 


Q AO 

£7 


|0|1@ 

k 

21011© 

A 


LAC 

AC® AVE 

10111 

A 

700044 

A 


CLON 



10112 

A 

700001 

A 


CLSF 



10113 

A 

@18112 

A 


JHP 

8®1 


10114 

A 

742010 

A 


RTL 



10119 

A 

618104 

A 


JMP 

AG AI 

N 



0|0i#0 

A 

f 

@END 

STA 

RT 

10117 

A 

mm®? 

A * 

l 





SIZM181RP NO ERROR LINES 


/TURN OFF PI AND 
/API SYSTEMS 
/AC®i 


/SAVE AC WHILE TENDING CLOCK 
/@0 TICKS PER SECOND (74 BASE 8) 
/ADD IN ANY RUNQVER 
/SET CLOCK REGISTER**LOC. 0PP007 
/GET AC BACK 

/TURN CLOCK ON AND CLEAR FLAG 
/CHECK FOR CLOCK FLAG SET 
/IF NOT ® WE WAIT 
/WHEN SET...ROTATE AC 
/GO SACK FOR MORE 







PAGE 1 T IH£f t, SRC PRINT »*l *» AFTER 5' SECONDS®OEDIXATEO I/O 

@ TITLP PRINT «im AFTER 5 SECONDS* DEDICATED I/O 

— x / 

/ 

/ PROGRAM USES DEDICATED I/O WITH THE REAL TIME CLOCK 
/ TO PRINT A 5! I SS ON THE TELEPRINTER EVERT 5 SECONDS,, 

/ AS LONS A8 THE DATA SWITCHES ARE NOT 9 , 

/ THE PROGRAM CONTINUES e WHEN THE DSW ARE i @ CONTROL 
/ IS RETURNED TO THE MONITOR® 

/ 





700001 

A 


GL8F®70fWt 


* 



700044 

A 


CLONi700344 





700406 

A 


TLS@700406 





700402 

A 


TCFP7004S2 

4 



f 05M0 

A 




e 

A 

@ LOC 10B00 

/HIGH ENOUGH TO AVOID MONITOR 


1056*0 

A 

70000g 

A 


i 

START 

1 OF 

/LOADED 8Y DOSwpTHAT MEANS 


i»50| 

A 

7@9§|4 

A 


/ 

IS 10 

/INTERRUPTS WERE ONlSO TURN OFF 


18902 

A 

I7i9§4 

A 


A 

OZMi? ' t? 

/ZERO LOC 7 


I0S03 

A 

777324 

A 


/ 

MORE 

LAW ^494 

/ADD .3 SECONDS IN TICKS 


J 0 50 4 

A 

370924 

A 



TAD* 17 

/TO CLOCK COUNTER 


10909 

A 

070324 

A 


A 

DAC* (7 

/RESTORE TO CLOCK COUNTER 


10906 

A 

700044 

A 


0 

CION 

/TURN CLOCK ON 


1M507 

A 

700001 

A 


GIKTST 

CL3P 

/CHECK IF S SECONDS HIVE PASSED 


10510 

A 

610513 

A 



JMP DSWT3T 


?' 

10911 

A 

t!0§2fJ 

A 



JMS PRINT 

/YES--PRINT A »*| 81 


10512 

A 

610903 

A 



JMP MORE 

/GO BACK FOR MORE TIMING 


10913 

A 

750004 

A 


/ 

OSWTST 

LAS 

/CHECK DATA SWITCHES FOR 0 


10914 

A 

740200 

•A 



SZA 



10 515 

A 

610907 

A 



JMP CLKT3T 

/NOT 0® KEEP TESTING CLOCK FLAG 








.EXIT 

/0 # GO BACK TO MONITOR 


10916 

A 

000000 

A 

* G 


CAL 



10517 

A 

000019 

A 

$ 6 


IS 



10920 

A 

§MM0 

A 


PRINT 

0 



10381 

A 

760061 

A 



LAW 61 

/ASCII CODE FOR «i « 


10922 

A 

700406 

A 



TIS 

/PRINT IT 

% ff****® 

10923 

A 

630920 

A 


j 

JMP#? PRINT 

/RETURN 




@105@0 

A 


f 

@ END START 



10524 

A 


A 






SIZE®!2)925 


NO ERROR LINES 








PA8£ 1 

TIMEPI 

$p?C : PRINT »»s« AFTER 5 

SECONDS®*® USING PI 



@TIT LE PRINT §l 

/ 

1 " AFTER s SECONDS —USING -PT 



/ 

/ PROGRAM USES PI WITH 

THE REAL TIME CLOCK 



7 TO PRINT A »i i? ON THE TELEPRINTER EVERT 3 SECONDS* 



/ HHILE CLOCK IS TICKING, THE LINK IS 8LIHKP0 AS A 



/ BACKGROUND PROGRAM, 

/ 



700001 

/ 

CtSF®700W 


- 

700044 

CLON»700044 



700406 

TLS®700496 



700402 

TCF®7@@408 

4 


i % 


r 

0 ABS 

/ 


% 0 0 0 0 


a LOG 0 


0 0 @ 8 0 

000000 

0 



620002 

JMP^ e T| 


00002 

010512 

I NT 


10800 


/ 

.IOC 10500 


10900 

700042 

/ 

START ION 

/TURN PI ON 

10501 

17®93§ 

DZM^ (7 

/CLEAR CLOCK COUNTER 

'“■‘N I0S02 

777324 

/ 

MORf LAW ®4g4 

/ADD *5 SECONDS IN TICK-S 

10503 

370539 

TAQ* (7 

/TO CLOCK COUNTER 

10504 

@70539 

0AC* (7 

A 

/RESTORE TO CLOCK COUNTER 

|0509 

700044 

/ 

CION 

/START CLOCK AND CLEAR FLAG 

10506 

450933 

ISZ COUNT# 

/START BLINKING THE LINK 

10907 

610506 

JHP @ «1 

/WHEN COUNT OVERFLOWS ® 

10510 

74@@@g 

CML 

/complement link 

10 511 

©19506 

JMP , SB 3 

A 


t ^ 9 i 2 

2S0536 

/ 

int u^e* 

/PICK UP RETURN Pt 

10913 

@90534 

DAC RET# 

/SET UP FOR RETURN 

1^514 

700001 

CLSP 

/CHECK IF INTERRUPT FROM CLOCK 

10-515 

610927 

JMP CLP 

/IF NOT CLQCK®-THEN JUST RETURN 

? ..^ 10 S1 6 

76@@6I 

LAW 6| 

/IT IS, SO GET CODE FOR 1 

10917 

7@0406 

TIS 

/AND PRINT 

y-^ 


9 eject 




AGE 9 


TIMgPX SRC PRINT «* 1 «» -AFTER 
/■ 


10920 

777324 


LAW - 

^454 

10521 

370535 


TAO^ 

(7 

10522 

070935 

J 

OAC* 

a 

10523 

700044 

t 

CLON 


10524 

700042 


ION 


10525 

707742 


RES 


10526 

630934 


JMP* 

mi 

10527 

703302 

CLR 

CAP 


10530 

700042 


JON 


10531 • 

707742 


RES 


10532 

630934 

$ 

JMP* 

RET 


010500 

/ 

e End 

ST A 

10535 

000007 

^L 



10536 

000@®0 

*L 




SIZE®1^53? 


SECCNDS@»«USJnG ■ PI 


/RESTORE CLOCK COUNTER AS BEFORE 


/CLEAR CLOCK FLAG 
/TURN PI BACK ON 

nil UP TO RESTORE L INK« PAGE/0 AN 
/RETURN TO INTgRRUPTEO PROGRAM 
/CLEAR ALL FLA6S«^WAS NOT CLOCK 

/SET UP TO RESTORE LINK®PAGE/BAN 
/RETURN 


NO ERROR LIN^S 




AGE 


PICLK 8RC CLOCK DIAGNOSTIC «JTH >1 ENABLED 

.TITLE CLOCK DIAGNOSTIC WITH PI ENABLED 

/ 

/ 

/PROSCAN PERFORMS ROTATION OF AC WHEN CLOCK AND PI ARE 
/ENABLED® WHILE THIS IS GOINS ON® THE LINK CONTINUALLY 
/BLINKS CWHETHER OR NO? THE CLOCK .AND PI ARE ENABLED)• 

/IF WHEN PROGRAM ST ARTS u CLOCK IS NOT WORKING OR PI IS 

/disabled then ac«i b 

/IF CLOCK AND PI ARE ENABLED AND WORKING® THEN THE AC 
/IS ROTATED ONE SIT POSITION TO THE LEFT ONCE A SECOND 
/UNTIL THE AC*4P0«0«. THEN THE AC IS ROTATED ONE BIT 
/POSITION TO TNI RIGHT EVERY SECOND UNTIL THE IG®Wiil*, 
/If AT ANY POINT WHILE THIS IS G0IN6 . ON„ THE CLOCK PR PI 
/ARE DISABLED FROM THE CONSOLE i the displayed CONTENT 
/OF THE AC IS FROZEN UNTIL THEY APE ENABLED e 
/ 

/USER HAY RETURN TO THE MONITOR BY SETTING DATA SWITCHES 
/TO ZERO, 

/ 

/0©©90999O<?O0®©©98f?S9&99909O08®O , BG® | B®0<?®0O , 0&®9®&0®0G®G9© 

/ 

700044 A CLON«700044 
700001 A CLSF*7000G1 


00000 A 

/IMP® A §00000 A 
§00«i A 600500 A 

•30900 A 

00500 A 700001 A 
00901 A 600524 A 
00502 A 040615 A 
00503 A 540617 A 
00504 A 60053i A 
00505 A 940620 A 
3j0Sft6 A 6tg093® A 


00507 A 750004 A 
30910 A 741200 A 
00511 A 600613 A 


.LOG 0 
PI 0 

JMP SKPCHN /JUMP TO SKIP CHAIN 


/ 


.LOG 900 
SKPCHN CLSf 

JMP CLR 
0AC AGSAVE 
SAD (400000 
JMP CHANGE 
SAD (000001 

JMP CHANGE 


/WAS IT THE CLOCK THAT INTERRUPT 
/IF NOT CLOCK @ THEN ILLEGAL 
/SAVE THE AC FOR ROTATION 
/CHECK IF AC NOW AT EXTREME LEFT 
/YE5®@CHANGE TO ROTATING RIGHT 
/NO*-IS IT AT EXTREME RIQHTf 
/VE8<®«CH AN6E TO ROTATING LEFT 


/ 

/BEFORE ROTATING THE ACe CHECK TO SEE IF USER WANTS TO 
/TO RETURN TO MONITOR. IF DATA SWITCHES APE l€RO@ GO 
/BACK TO MONITOR. IP DATA SWITCHES ARE NON 0, CONTINUE 
/ON WITH THE PROGRAM, 


/ 

CHECK LAS /READ the data SWITCHES 

SNA /IF NOT 0 CONTINUE ON 

JHP MONTOR /IF 0® 60 TO @ EXIT 



PARE : g 


SRC CLOCK DIAGNOSTIC WITH P| ENABLED 


/*#********#**.$&$#**$MiF#*#*********#*******«*»** 4 *****£*« 

/SET AC VALUE BACK AND ROTATE RIGHT QR LEFT ACCORDING 
/TO TNg INSTRUCTION |N LOCATION ROTATE CTWf$ NAY BE 
/MODIFIED IN THF CHANGE SECTION! . 

/THEN SIT THE CLOCK TO TICK FOR ANOTHER SECOND BEFORE 
/INTERRUPTING. #89 THEN RETURN TO THE INTERRUPTED PROGRAM. 






/$ ^ yese^ 

f 


00912 

A 

200615 

A 

GET AC 

LAC ACSAVE /GET AC VALUE TO eg ROTATED 

®05|3 

A 

74402® 

A 

ROTATE 

RCR 

00914 

A 

040615 

I 


OAC ACSAVg# 

0MI5 

A 

777704 

A 


LAW »74 

00SI6 

A 

040007 

A 


0AC 7 

00317 

A 

208619 

A 


LAC ACSAVE^ 

005 20 

A 

700044 

A 


CION 

0M52I 

A 

70774? 

A 


RES 

$80522 

A 

700042 

A 


ION 

00923 

A 

@20000 

A 


JMp$ 0 


/ 


/SgT HgRg FROM LOCATION 5®i WHEN INTERRUPT IS NOT FROM 
/THE CLOCK a ALL WE DO IS CLEAR ALL FLAGS AND RETURN TO 
/THE INTERRUPTED PROGRAM, 


-00324 A 7 ^ 33 ®? A 
§0923 A 707742 A 
00526 A 7@i®4? A 
00S27 A 920®0® A 


CAF 

RES 

ION 

JhP# ® 


/#**#** + **#****#«#*#******* + ****#*#t****#*tt + »t*t'i M i,#**** 
/GgT HERE FROM 504 OR 506 WHEN wg WANT TO CHANGE THE 
/DIRECTION Of ROTATION. THE CHANGE IS SIMPLY QONFl 
/RCR®744020 WHILE RCL®7440!§ 8 NOTICE THAT IF YOU *0* ONE 
/INSTRUCTION WITH THE VALUE 0000S0, YOU GET TMg OTHER 
/INSTRUCTION, 

/***t##**tt****ft#**#*#t#*t** 4 *«#*********+tt*t 4 * # 40 # 40 t # 

/ 


00530 

A 

2®i§|3 

A 

change lac 

ROTATE 

00931 

k 

240621 

A 

KOR 

C000030 

00632 

A 

040S13 

A 

D AC 

ROTATE 

00533 

A 

600507 

A 

JMP 

CHECK 


/ 


EJECT 



PAGE 3 


PICLK S»C 


ENABLED 


0 P 6 0 0 A 


# t * ?V 6 •*? & & v> s 6 'A 'Jr & # ft 0 & <? t % $ it t> # # § 

/MAIN SECTION pr PROGRAM 
/SET UP THE CLOCK INITIALLY 
/PLACE 000001 IN AC 
/blink THE link 

/•**** ***#**•**♦#*■#♦*#•##**♦#*#**#***.#**********#** 
/ 

@LOG W 


0 R 6 P ® 
00601 
00SO2 
0«6B3 

# P 0& 4 
009®5 
35P6P6 
00607 
00® 10 
30611 
00612 


A 750000 
A 705S04 
A 7777^4 
A 340007 
A 754P30 
A 700042 
A 700044 
A 440616 
A 900607 
A 740302 


CL A 
ISA 

LAW ®74 
0AC 7 


COMPL 


ION 

CION 

ISZ COUNT# 
JMP „«i 

CMC 


/GO BACK TO THE MONITOR KITH .EXIT 


00613 A 

i0613 A 000R00 
00614 A 000019 


.EXIT 

CAL 

15 


/NOTE THAT IN ORDER FOR THIS PROGRAM TO BE LOADED 
/BY THE LINKING LOADER, API MUST PE ENABLED* 

/THIS IS BECAUSE AS SOON AS LOCATION 1 IS LOADED, 
/THg SYSTEMS USE OF PI FOR loading IS corrupted,, 


/SAPI ON 
/ 


/LOADER VXX 
/XrPICLK 
/ 


000600 A 

00617 A 4ii®00 A <?L 

®0«® A 00000! A *L 

006?1 A 000030 A #L 

SI1E803622 


ERROR LINES 


34 




£ i EOINTR SRC INTERRUPT LINE EDITOR PROBLEM' 

@TITLE INTERRUPT. LINE EDITOR PROBLEM 

/ 

/A PROGRAM TO ECHO AN EDITED LINE 
/USING THE PROGRAM INTERRUPT CONTROL 
/ 

/ EMPLOYE TWO SOFTWARE SWITCHES! 

/ 

/ ,8 CRLP f! • CARRIAGE RETURN LINE PEED 
/ (-t*C*i«»Ln 

/ 88 M 0 D £ 81 ® INPUT/OUTPUT CONTROL 

/ (M "OUTPUT,0«XNPUT, + i«C*l.F ONLY) 

/ 

a ABSP 

/ 



780301 

KBP@700301 



700312 

KRS^7@0318 



7mm2 

TCP®700402 



70040i 

TSF®70@401 



70i4ii 

TLSs70048@ 

A 


@0000 


/ 

a L 0 C 0 




PIC 0 


mm i 

600112 

JMP sevint 


@0100 


f 

.LOC 180 



708«4g 

START ION 

/TURN ON wp|c« 


700416 

TLS* 1@ 

/SET UP 1ST INTERRUPT 

mim 

188217 

JMS SETUP 

/SET UP VARIABLES 

001O3 

758801 

CLAiCMA 

/SET *1 IN 51 At M 

00104 

840337 

0AC C«LF» 

/SET UP 88 CRLP 8S 

00105 

44P34P 

ISZ MODE# 

/CRIP ONLY! 

00106 

440342 

ISZ TIME# 



@00106 

JMP .-1 


00 11 0 

iAm® 2 

Cml 


0011! 

608106 

JMP @t *S 



/ 

/ INTERRUPT SKIP CHAIN 


/ 


00112 

040341 

SEVINT 

0 AC 

SAVAGE 

/SAVE INTERRUPTED "AC" 

80113 

788381 


K 8P 


/KEYBOARD? 

@0114 

74108? 


SKP 



00115 

608166 


JMP 

KB 

/YES 

@0116 

7@i4@l 


TSF 


/PRINTER? 

80117 

741800 


SKP 



@0128 

@@0126 


JMP 

T p 

/YES 

80121 

740048 

J 

HLT 


/ILLEGAL INTERRUPT! 

@@122 

288341 

f 

EXIT 

LAC 

S A V A C 

/RESTORE SAVED «AC 58 

@8123 

700842 


ION 


/TURN INTERRUPT BACK ON 

@0124 

703344 


DBR 


/RESET LINK 

@0125 

628000 


JMP# 

P|C 

/RETURN TO INTERRUPTED PROGRAM 



t p 

EDINTR 

$PC 

INTERRUPT LT-NE 

EDITOR PROBLEM 



/ 

/ 

£ 

TELETYPE SERVICE 

ROUTINE 


700402 

& 

JP 

TCf 

/CLEAR INTERRUPTINS fl as 


200340 


LAC MODE 

i INPUT # OUTPUT OP CRLF? 

00138 

751200 


SNA | CL A 


80131 

608122 


JMP EXIT 

/INPUTl..GET OUT| 

80132 

200337 


LAC CRIP 


85*133 

741200 


SNA 


0 P15 4 

683156 


JMP LF 

/PuLINS FEED 

08139 

75ll@0 


SPA 1 CL a 


00138 

60015? 


JMp CR 

/•i«CARRXAGE RETURN 

00137 

238226 


LAC* BUFPTR 

0 X 

00140 

708406 


TLS 

/PRINT CHARACTER 

0 0 1 4 | 

725801 


A X S 4 1 

/ADVANCE XRg72 CHARACTERS? 

00142 

540343 


SAD C 215 

/CARRIAGE RETURN? 

00143 

741800 


SKP 


00144 

608122 


JMP EXIT 

/MORE TO SOI 

00145 

180217 


JMS SETUP 

/TERMINATE OUTPUT 

00146 

440340 


ISZ MODE 

/SWITCH TO INPUT 

00147 

750801 


CLAIC^A 


00180 

040337 


0 AC CRlf 


00151 

680122 


W EXIT 


00152 

760215 

CR 

/ 

LAW 215 


00153 

780406 


TLS 


■00154 

140337 


DIM C*LF 

/SET TO LINE FEED 

00155 

600122 


JMP EXIT 


00156 

780212 

UP 

/ 

LAW 212 

•,/ 

00157 

700406 


TLS 


00160 

200348 


LAC MODE 


00161 

780108 


SMAICLA 

/♦i*CRL.F ONLY 

00162 

140340 


02m MODE 

/SHUT OFF OUTPUT 

00163 

440337 


ISZ CRIP 

/SHUT OFF CPUF 

00 1 64 

735800 


CL K 

/RESET TABLE FOR OUTPUT pR INPUT 

00165 

600122 


JMR EXIT 



/ 


EJECT 



PAGE 3 EOINTR'SRC INTERRUPT LINE EDITOR RR08LEH . 


/ 

/ KEYBOARD SERVICE ROUTINE. 
/ 


166 

700318 


KB 



aa |S7 

543344 



SAD C225 


at n?% 

600205 



JMP LNDIT 

/YES 

mi?i 

541343 



SAD C377 

/PUSOUTf. 

m i72 

@00211 



JMP RUBDLT 

/YES 

0®|73 ~ 

070ggfl 



DAC# lUFPTRg t 

/STORE CHARACTER 

■10| 7 A 

785001 



AXS +1 

/ADVANCE XR« 72 CHARACTERS? 

(Bin? 5 

§40343 



SAD C815 

/CARRIAGE RETURN! 

aesi76 

741000 



SK P 

■ /TERMINATE! 


@00122 



JMP EXIT 

/MORg TO COME! 

8«20§ 

750001 



CLAICM4 

/SET UP FOR OUTPUT 

@»g0| 

040340 



QAC MODE 


00202 

040337 



0 AC CRLF 


00203 

700410 



TLS^ | 0 

/GENERATE 'INTERRUPT 1 

00804 

@@@122 



JMP g^JT 


00S0S 

73S0@@ 


LNOLT 

/ 

eix' 


®080@ 

760300 



LAW 300 


00207 

703406 



TLS 


00810 

603122 



JMP EXIT 


00211 

? 2 mm 


RUBDIT 

/ 

PX A 


00212 

740200 



SZA 

/BEGININ6 OF LINE? 

00213 

737777 



AYR «1 

/NO! 

00214 

760334 



LAW 334 


00215 

7i04@0 



TLS 


00210 

600122 



JMP EXIT 


00217 



SETUP 

f 

3 


0022® 

140340 



DIM MODE 


00221 

140337 



DIM CRLF 


00222 

735000 



ax 


00283 

800346 



LAC C i 18 


0^224 

72800W 



pal 


0022S 

680217 



jnp^ SETUP 
& 


m226 

000227 


8UFPTR 

/ 

BUFF 


00287 



BUFF 

«SLOCK 410 



0@0|ii 



8 ind START 


30343 

800215 

^L 




00344 

000285 





00345 

000377 

H. 




30346 

080H0 

^L 





SIZES00347 


NO ERROR LINES 





PARE 1 

TAPJNT 

SRC INTERRUPT TEST 

ROUTINE 



A 

.TITLE INTERRUPT TEST ROUTINE 



f 

i 

s 

a ABSP 


00 000 


s LQC 0 


S 0 $1 3 0 

000000 

IN? 

0 


■a 0001 

041355 


QAC SAVE# 


mmz 

708314 


IORS 



600100 

£ 

JMP CHECK 


0 0 1 0 0 


/ 

/ 

e LOC 100 


^ 001^0 

041356 

/ 

CHECK 

OAC 3AVSTA* 

/SAVE IORS WORD 

03101 

301060 


AND (300000 

/MASK UNEXPECTED FLAGS 

03102 

941060 


SAD (300000 

/CHECK FOR SIMULTANEOUS FLAGS 

-—•s 30133 

600300 


JMP READ 

/HANDLE READER FIRST 

i 03134 

541*61 


8AQ (000000 

/CHECK FOR READER FLAG 

03 139 

680300 


JMP READ 


001BS 

941068 


SAD (1017000 

/CHECK FOR PUNCH FLA® 

i»lP7 

900327 


JMP PUNCH 


30110 

201063 


UAC (7 


03111 

700406 


TLS 

/RING SELL ON TTY 

30112 

201056 


LAC SAVSTA 

/HALT WUW IORS DISPLAYED 

00113 

740040 

t 

HLT 

/IN AC ON UNEXPECTED INTERRUPT. 

00200 


/ 

IN IT 

.LOC 900 


00200 

201064 

LAC (500 


30201 

722000 


pal 

/SETUP LR 

00202 

141053 


DIM PINDX# 


00203 

|4f094 


OZM RINDX# 


30204 

|4|057 


OZM TEMP# 


002P9 

7077S2 


DBA 

/SETUP FOR INDEX MODE 

00206 

73503P 


SIX 


"‘‘S 0020 7 

700048 


ION 

/TURN on interrupt 

S * 0 2 i 0 

?§3aa@ 


CL A 


00211 

700204 


PSA 


00212 

700104 


RSA 

/MOVE TAPE TO GET FIRST fMTFRRUP 

00213 

794030 

MAIN 

CLAICLLl1 AC 


00214 

7 400 10 


PAL 


00215 

441098 


ISZ CNTR# 


00216 

600815 


JMP .-1 


30217 

740100 


sma 


0W220 

600214 


JMP MAIN*! 


002.21 

740080 

RIGHT 

RAR 


00222 

441058 


ISZ CNTR 


00223 

600288 


JMP .-l 


i@224 

S4I06S 


SAD Cl 


00225 

600814 


JMP MAIN*1 


80226 

600281 


JMP RIGHT 





38 




PAGE 


? TAPINT SRC INTERRUPT-TEST ROUTINE 


/ 


0 ^ 3 0 « 


J 

# l 0 c 300 


201054 

/ 

READ 

LAC RJND.X 


721000 


PAX 

mm 2 

700H2 


RRB 

@@3«3 

@5033? 


DAC 8UFF ( X 

00304 

201056 


LAC SAVST A 

@@3@5 

301066 


AND CI000 

00306 

@41057 


DAC TEMP 

00307 

541086 


SAD CI @O0‘. 

00310 

600322 


JMP SETLIM 

00311 

729001 


AXS^l 

00312 

741@@@ 


SKP 

@0313 

800325 


JMP RESET 

@0314 

724@@@ 


PXA 

00315 

@41054 


0AQ RINOX 

@0318 

703104 


RS A 

@0317 

2@1@55 

RET 

LAC SAVE 

@0320 

700042 


ION 

@0321 

820000 

A 

JMP* |NT ■ 

@0322 

725777 

/ 

SETLIM 

AXS #1- ■' 

@@323 

7§6@0O 


PXL 

00324 

800317 


JMP RET 

00325 

141054 

RESET 

OZM RINDX 

00320 

@00317 


JMP RET 

@0327 

201093 

PUNCH 

LAC PINDX 

@0330 

721000 


PAX 

@0331 

21 @392 


LAC BUFF , X 

@0332 

70@2@6 


PSA *2 

@@333 

725001 


AXS ♦! 

@0334 

741000 


SKP 

@@33§ 

800341 


JMR RNT 

@63336 

724000 


PX A 

@@337 

041053 


QAC PINDX 

@0340 

6@@3|7 


JMP ret 

@@34| 

201857 

RNT 

LAC TEMP 

@0342 

541066 


S A 0 Cl 000 

@0343 

S@@347 


JMP AHEAD 

@0344 

141053 


OZM PINDX 

00345 

700104 


RS A 

@@346 

600317 


JMP RET 

@@347 

703302 

AHEAD 

CAF 

@0350 

400317 


XCT RET 

00351 

620000 

A 

JMP* INI 

@@352 


/ 

9UFF 

8 BLOCK 500 


/ 


/GET READER JNOEK 
/SETUP XR ’ 

/READ READER' BUFFER 
/STORE' IT I 
/GET IORS WORD 

/SAVE FOR CHICK WHEN PUN£H DONE 
/CHECK POP READER NO YAPg 
/SETUP in. FOR • PUNCH 
/INCREMENT XR,SKIP’ IF ■ LR‘■ 


/SET READER INDEX ‘ . - ' 

/SAVE IT • . • 

/MOVE TAPE YOU ? RE NOT DONE YET 


/RETURN TO MAIN PROGRAM 
/SETUP FINAL LIMIT FOP PUNCH 


/REINJTIAL HE READER 1NDEM 


/PUNCH k CHARACTER 
/INCREMENT XR @ SKfP IF ■ IP 

/IfRiLR g CHECK FOR POP NO TAPE 
/GET PUNCH INDEX 
/SAVE IT! 

■/GET MASKED IORS WORD 
/CHECK PG.R RDR NO TAPE 
/GET OUT OF. INTERRUPT ROUTINES 
/YOU’RE DONE \ 

/REINITIALIZE PUNCH INDEX 
/START THE READER 

/CLEAR THE WORLD! 

/RESTORE THE AC FOR M4JN 
/DONiT TURN INTERRUPT ON s 



AGE 3 

T APINT 

s«c 

inter r u 


700406 


7 

TtS»700400. 


700204 


P8AB700204 


700104 


WSA»70fiJ104 


703119 


RR0«700lia 


000W 


9 £N 

0 1 $ 6 $ 

300000 



01061 

200000 

*L 


0I0S2 

100000 

*L 


01063 

•000007 



01364 

000500 

*L 


01365 




31066 

001000 

*L 



size*0iw 


BOUT 


NO ERROR UWES 





Page. 


CUNvkT . SRC 


PROGRAM. TO 


ALPHA. I $m 






00225 R 
00226 R 
40227 K 
00234 R 

40231 R 

40232 R 
00233 R 


004400 A 
224225 k 
040354 R 
4 4 2 2 § R 
224225 W 
040334 W 
723402 A 


PROGRAM TO CONVERT IQPS ASCII- TO IMAGE At 


/PROGRAM INPUTS' IN TOP'S.ASCII FROM- THE TTY:# 
/UNPACKS AND STORES AS IMAGE.ALPHA 9 . 

/SORTS THE CHARACTERS. In ‘ASCEND 1NG ORDER 
/A HQ OUTPUTS' ON WHATEVER DEVICE' IS ATTACHED 






/TO OAT 

i 

SLOT S^USUAtlY 

THE TT -OP :LP® 





e 

3 

«IUDEV- @8#3‘ ’ 






$ 

•GL08L SORT . 


00 00 0 

H 



f 

GO 

© INIT 311® RST 

/TT OR LP FOR OUTPUT 






,INIT «2 # 0 # RST 

/TT ONLY. FOR INPUT . . 

0 0 010 

R 



/ 

MORE 

©READ »2,2,BUFFI 

? 34 . 





£ 

©WAIT -2 


0 0 010 

R 

100225 

M 

$ 

JMS UNPACK 


0^017 

R 

000041 

H 


BUFFI 

/ADDRESS OF INPUT BUFFER 

400p0 

R 

0001U5 

R 


BUFFO 

/ADDRESS OF OUTPUT SUFFER 

00021 

R 

200355 

R 

t 

LAC (BUFF 0+2- 

/GET ADDRESS OF DATA NUT .HEADER' 

0 fig 0 2 2 

H 

632004 

A 


L HQ 

/SUB REQUIRES XT IN MG REGISTER 

0 0 0 25 

R 

200351 

H 


LAC HOCNT ... 

/GET WORD COUNT IN AC 

40084 

R 

120535 

fc 

/ . 

JMS* SORT : 

/GO OFF TO SORTING ROUTINE . 





/ 

.WRITE 3#3 ? BUFF0 

0 @2 






.WAIT 3 


0 0 0 35 

K 

604010 

H 

J 

J MR MORE 


0 40 34 

R 



RST 

@ CLOSE »2 







.CLOSE 3 


0 004 0 

R 

600000 

R 


JMP 50 


0004 1 

W 


A 

/ 

BUFFI 

@ BLOCK 42 


00105 

R 

000000 

A 

BUFFO 

0 


00104 

H 

0 00 000 

A 


0 


00105 

« 


A 

BUFDT 

/ 

a BLOCK 120 






/ 

/ 

UNPACK ROUTINE©® 

I0P3 ASCII TO IMAGE ALPHA 


/ 

/ 

UNPACK 


0 

uc* 

D A C 
ISZ UNPACK 
L A C ^ UNPACK 
DAC TOP# 


/PICK UP 


UP BUFFO ADDRESS 
/SET AROUND HEADER WORDS 





PA i s i 


C0NV R T SRC 


J. CONVe^f 1-OPS; ASCII TO I-HAGE. ALPHA * S.QR 


57234 

H 

04^553 

R 


-. QA.C .TO# , ", 

-• : /pointer to -d-a.ta AREA 

00235 

H 

44ifi22a 

k 


1st unpack 

. -/SET’UP FOP? EXIT , " ' — 

00236 

H 

223330 

K 


LAC*- .FROM 

, .:. V /G£T HEADER 'WORD. 0 QP INPUT ' 

0023/ 

R 

300337 

R 


A'NO. .(577000 ." 

' - • /GET -WORD PAIR'COUNT (ilTS . t«« 

5 2> 2 4 0 

K 

34i^34v5 

k 


T AD ■ •:(^10-03 

/SUBTRACT ONE-CTO EXCLUDE 
; /HEADER. WORD "PAIR - 

3 ? 2 4 1 

R 

/42^33 

A 


8R.-H A .' •' 

. •' /PLACE WD P* COUNT IN BITS 9*17 . 

32242 

k 

7 4 0 3 31 

k 


‘ TCA 

. /«WWORO' PAIR COUNT ■' 

32243 

R 

04032/ 

R 


t)AC COUNT# . 

■ /SAVE FOR' LATER-. IN UNPACK, . 

•//and for use - In Sort routine,' - 

32244 

R 

200330 

R 


U AC PROM:': 

/pick ’up ’HW0 of input buffer 

30245 

H 

723002 

A 


A A-C' 4" 2 

/GET- AROUND'HEADER-tfORDS 

0 0246 

H 

040330 

K 

j 

Oac 'prom- ■ 

'/FROM NOW POINTS -TO FIRST DATA *■ 

■ ■ . ’■ • .• . I 

3024/ 

R 

140331 

R 

7 

/ 

7 00 
/ 

P2M . HOC NT# ./CLEAR IMAGE.'".ALPHA CHaR. COUNTER- 

THE ACTUAL,. UNPACKING . 

! ' . - . ' \ 

32250 

R 

220330 

R 

7 

00 

-. LACA prom 

■ /GET THE 1ST- OF A WORD PAIR • V 

3 2251 

R 

742030 

A 


SwHA 


32252 

R 

742020 

A 


' R T R ■ 


30250 

;H. 

100321 

K 


JMS STORE 

.. /GET ' THr FIRST' OF Flvr 

30254 

R 

220330 

R 


LAC* FROM- 

/.PICK UP''FIRST WORD AGAIN 

03255 

R 

742020 

A 


RTR /MOVE 

2ND. CHARACTER INTO -BIT® 11*17 

30256 

R 

742020 

A 


RTR 

3025/ 

R 

100321 

K 


JMS. store. ;• 

-./STORE THE 2ND OF. FlVg- 

00263 

R 

220330 

W 

f 

LAC* FROM 

• - . . ' ; ■ U '• ^ 

0/<261 

« 

742010 

A 


. RTL • ; ' : 


30262 

R 

740010 

A 


R A L ■;.:. ,' 


30263 

H 

500341 

H 


and. (170 


00264 

R 

040332 

R 


DAC TEMP# 


0026 5 

R 

440330 

R 


ISZ-FROM 


00266 

R 

220330 

K 


L A C ^ p-RQM 

✓PICK UP 2ND WOSO OF PAIR 

0026/ 

R 

742010 

A 


»TL 

/MOVE 2N© HALF OF 3RD CHAR 

0027 0 

R 

742010 

A 


RTL ■ 

/TO -SITS 15*17 

002/ 1 

R 

500342 

R 


AND (7 

- . ■ - . - 

00272 

R 

340532 

k 


TA0 TEMP 


00273 

R 

100321 

R 

J 

J.MS .STORE 

✓ FXNALL'V**STORE:' THE 3RD OF FIVE 

00274 

R 

220550 

R 

f 

LAC* FROM 

■ /PICK UP 2ND WORD AGAIN TO GET —' 

00275 

R 

7 4 0 0 1 0 

A 


. RAL 

. /AT THE 4TW OF F-l¥E®^MOvi TO BIT 

3027 6 

R 

742030 

A 


S w H A 

/NOW TO @ITS 1.1-17 

0027/ 

R 

100321 

R 

J 

JMS STORE 

/STORE 4TH OF FIVE 

3 0300 

R 

220530 

R 

f 

LAC* FROM 

/PICK UP WORD 2 FOR CHARACTER 9 

00301 

» 

740020 

A. 


RAR 

/PLACE IN BITS 11*17 

30302 

R 

100521 

R 

/ 

JMS STORE 

/STORE LAST Of FIVE 



3 


CONV.R T 

SRC 


PROGRAM to (CONVERT 

/IOPS ASCII TP I«A6€ A-tPMA 1 SOR 

4 e 3 0 3 

w 

440330 

R 



IS'i’ FROM 

'/SETUP TO DO IT WITH' NEXT § WOS 

00304 

R 

440327 

R 



IS2 COUNT 

/ARE wE DONE WITH ALL 9/7 WR ■ 

00509 

R 

©00250 

ft 


J 

J MR DO 

/Nb —GO SACK FOR MORE 

0050© 

R 

2^0331 

R 



UAC HOCNT 

/YES-#DONE*INCLUOE HEADER WORD PA 

^ i A 3 id 1 

W 

723403 

4 



A AC +3 

/AND ONE. FOR GOOD LUCK 

S Pi 3 1 0 

« 

742034 

A 



SWHA - 

/DIVIDE BY 8 AND POSITION IN . 

003! 1 

R 

740420 

A 



RAR 

/BITS i*»8 

0®5|2 

R 

540337 

ft 



AND (377000 


d-0 3! 3 

r 

723003 

A 



A AC *3 

/SET DATA MODE TO ’ IMAGE 

0 0 3 | 4 

R 

430334 

R 



0AC* TOP 


•■a ? 3 1 b 

R 

443334 

R 



I52 TOP 


3id3 f © 

ft 

160334 

M 



DIM# TOP 


0 0 31 / 

H 

i ©0353 

« 



DZMw TO 


•5032 3 

R 

620229 

R 


/ 

JMP# UNPACK 


00521 

R 

000000 

A 


/ 

STORE 0 

■ ■ 

00522 

R 

500343 

R 



AND C 1 7 7 


00526 

R 

060333 

R 



QAC* TP 


00524 

K 

440333 

R 



ZSZ TO 


■30525 

R 

440351 

R 



1SZ HQCNT 

•' ’ h‘ . >' ', ; 

3052© 

R 

680321 

R 


A 

JMP# STORE 




030000 

K 



@ END GO 


00539 

R 

000333 

fc 

* E 




3 0 3 3 b 

ft 

000105 

R 

*L 




1^0337 

R 

377000 

A 

#L 




00500 

R 

7/7000 

A 

* L 




a a 3 41 

R 

000170 

A 

*L 




30342 

R 

000007 

A 

*L 




3030 3 

R 

00017/ 

A 

*L 






Si/;fce00344 

NO ERROR LINES 







GE 1 FILLS! S»C SOURCE ' FILE LISTER- • • ’ ' ; f ; . ■ ' ' 

- .TITLE SOURCE FTLI LISTER ' ■ . 

/ ■ . ; . . z • • • ; ■" - ■ - 

/ 0 99 099 9 09''99999'0 9999 OOVO 0999 90 99 00 9 0099 0 9990 090 9 90990909 
/ 

/LAB PROBLEM « DEVISE A PROGRAM TO LIST a- *8R'e» FILE PF 
/ANY length on A GIVEN output device 
/ 

/EXAMPLE OF $k GLOBAL CALL 
/ 

/INPUT DEVICE IS a DAT ®I5 (DISK OP *TJ 
/OUTPUT DEVICE IS ,0‘A‘T 3 - CTT - OR LP) 

/COMMAND STRING IS .oat -2 (MUST 8E TTY] 

/ . . 

/NAME IS AN INTERNAL GLOBAL 

/FILNAM IS AN EXTERNAL GLOBAL • 

/ 

/99900090990 0990 90.99090099 9999 909999 9990900990990'999999Q 
/ / . 

.GL08L KAMf,FILNAM• 

/ • • •' :• 

@ 1 OPEV -g,3 g «. 15 ' .. 

/ . - . 

00000 R START .INI? ®2,0,PfST 

• IN IT 3*1.0 
.INIT -15.0.0 

/ • . " ■ 

.WRITE -3.2.HES81,34 
sWRfTE -3.2.M£$$2»34 
.WRITE -3.2.MESS3.34 ■ , 

9 WAIT -3 

/ 

a REAQ -2,2,ANS.6 
® WAIT m? 
a CLOSE -2 

/ 


00042 

R 

300167 

R 


LAC ANS^g 

/FIRST PART of 5/7 

ASCII 

00043 

R 

040050 

R 


PAC AUG 1 



$0044 

R 

20017® 

p 


LAC A NS#>3 

/SECOND PART OF 5/7 ASCI 

00345 

R 

@40051 

R 


0AC AUG2 



00048 

R 

200171 

R 


LAC AN$«m 

/LAST PART Of S/7 

ASCII 

00047 

R 

130263 

E 


JMS# FILNAM 

/GO CONVERT. 5/7 TO 

SIXBT 

00050 

R 

000000 

A 

A U G1 

0 



00051 

R 

@00000 

A 

AUG 2 

0 

0 







f 

a F8TAT -15,NAME 

/FILENAME ON DEVICE? 

00055 

R 

741200 

A 


SNA 

/FILE PRESENT? 


00056 

R 

600IH 

R 


JMP RST 

/NO QO RESTART 







® SEEK ®15,NAME 

/YES OPEN AND READ 

FIRS? 


@0062 R 


/ 

MORE 


READ -15.2.BUFF.255 
WAIT -15 


/SET ONI LINE OF TEXT 



@@@70 

ft 

200120 

R 

@@@7 I 

R 

903264 

ft 

09072 

R 

S4086S 

ft 

@0073 

R 

600103 

R 


00102 

R 

690068 

P 

/ 

@@1®3 

ft 



DONE 

00111 

R 



RST 

00117 

ft 

600000 

R 


30120 

R 


A 

BUFP 


/ 


LAC ■BUFF 
AND C 7 

SAD (8 - " . , . ... 

JMP DHNI ' f • :: : 

«WRITE 3 9 2r8 f JFF s 34 
.WAIT 3 
JHP MORE 

§ WRITR -3»2«MES84,3'4 
.WAIT @3 ' 

®CLOSE »3 
s CLDSE *2 
@ CLOSE ®|8 
JHP START 
0 BLOCK 48 


/DONE? 

/YES . • “• 

■ • ' ■ /NO « CO 

/AND OUTPUT TNg LINE 
/SO' SACK- FOR '.ANOTHER LIN 


30162 

R 

@00000 

A 

NANE 

bSXXBT »‘MMMSRC m . 

30163 

R 

@09000 

A 



30164 

R 

232203 

A 

A 


00165 

R 


k 

/ 

ANS 

A 

.BLOCK 19 

30175 

R 

@10002 

A 

/ 

NESS 1 

NESSg«MESSl/2*l(W«8 

00176 

R 

@00000 

k 


0 

00177 

R 

44S0J2 

k 


.ASCII « I WILL RETRIEVE ANY ?SRC® FILE ,, -4i 5 

00200 

R 

744630 

A 



30201 

R 

46J012 

A 



@0202 

R 

242650 

A 



@0203 

R 

918230 

A 



@@2@4 

R 

953818 

A 



0023 5 

ft 

20203! 

A 



@0208 

ft 

654900 

A 



@0207 

R 

238472- 

A 



@0210 

R 

2415S 6 

A 



@0211 

R 

202191 

A 



@@212 

R 

146818 

A 



@0213 

R 

@64000 

A 


... •'••.' 

@0214 

R 

@@@@00 

A 



@@215 

R 

@12098 

A 

ness a 

MES33«ME3$2/2*lG2&+2 

@0216 

R 

000000 

A 


0 

@@21 7 

R 

582632 

A 


.ASCII !5 T¥PE im 4 FULL 8XM CHARACTER «»' 

@0220 

ft 

@48300 

A 



@0221 

R 

446344 

A 



«»222 

ft 

340S90 

A 



@@223 

ft 

438531 

A 



@@824 

ft 

446100 

A 



@@288 

R 

S16233 

A 



@0826 

ft 

@20206 

A 



@0227 

R 

448038 

A 



@0830 

R 

240606 

A 







FILLS? SRC 




SOURCE FILE- LISTER 



.:.***% 

% '* 





R 

522132 

A 



- , '■ ' : - •. .' : 

00232 

ft 

22 mm 

h 



■ - ' ' • 

0^233 

n 

432231 

ik 



a ASCII "FILE NAMEJU0I5* 

00234 

ft 

442500 

A 




00235 

R 

472031 

A 




mz$e> 

R 

542534 

A 




mzbi 

R 

06400® 

A 




m2 a* 

ft 

000000 

A 




$024| 

R 

008002 

A 


ME3S3 

MESM-ME383/2M&80+R 

mi® 2 

R 

000000 

A 



■0 

0024-3 

ft 

42S61P 

1 



e ASC11 "EXAMPLE## £eHO#f^C^ 58 <t0i5» 

m 2 44 

ft 

14664® 

A 




00245 

R 

462125 

A 




0i2'46 

R 

225100 

A 




0R2 47 

R 

426071 

A 




00250 

R 

047600 

A 




002S| 

ft 

401710 

A 




@0252 

ft 

351174 

A 




00253 

R 

@64000 

A 




00254 

ft 

000000 

A 




0025S 

ft 

003002 

A 


N E S S 4 

ENDM«ME$S4/2#lg00+2 

002SS 

R 

0000®® 

A 



0 

0025? 

R 

422371 

A 



.ASCII "00NE4"«G15* 

mzm 

R 

642502 

h 




00261 

ft 

0640OT 

A 




00262 

ft 

000000 

A 






000263 

ft 


E N 0 M ■ 8 




0@g@8@ 

ft 



.END START 

00263 

ft 

000263 

E 

»E 



00264 

ft 

00000? 

A 

*L 



00265 

R 

000005 

A 

*L 





siZE®we@ 

NQ ERROR LINES 





46 








PAGE 


1 fun* SRC ROUTINE TO CONVERT 5/7 ASCII TO SI KBIT ASCII 

.TITLE ROUTINE TO CONVERT 3/7 ASCII TO SIVBTT AS 

' /ROUTINE TO CONVERT 9/7 PACKED ASCII NAME-TO SI^8IT NAME 

/FILE NAME IS M A3CDEF I? FOP COMMENTS 
/ H X 9f IS A DON *T CARE POSITION 
/ ” 0 M IS A POSITION KNOWN TO BE ZERO 

/BIT POSITIONS ARE SJVgN P¥ CHARACTER LETTERS A«F OF Fit 
/ 




I 




/ CALL SEQUENCE 

/ JMSt FIINAM . 1 . ' 

/ AUG! /XAAAAAAXBBiB«B*CrC 

/ AU&2 /CCCXDDDD'DDXEEEEEEIS 

/ AC«AUQ3 yXFFFFPFflWBR0&&»0 

/ 

/ 

/"NAMgH IS an EXTERNAL GLO0L 

/ m FILNAM ! * is an internal globl 
/ 


eGL08L NAMEsFILNAM 



R 

000000 

k 

FILNAM 0 



R 

040046 

R 

0AC SAVAS 

/SAVE AUQ3 

mm2 

R 

2000S0 

E 

LAC NAME 


00003 

R 

783001 

A 

AAC 1 


0*304 

R 

040047 

R 

0AC NAME 1 


00005 

R 

7 7 5767 

A 

LAW 15767 

/ iigHIMC' 1 7TH BITS TO 0 

00006 

R 

520000 

R 

AND# FILNAM 

/AC*)UAAAAAPBABAB*0CCC 

mm? 

R 

744010 

A 

CLL1RAI 

/ktnhkkkhkmmmmctt^ 

00010 

R 

744000 

A 

CLL 


00011 

R 

100037 

R 

JBS LFTPK 

/MOVE ONE LEFT 

00012 

R 

003756 

A 

3736 

/ACeAAAAAA©P8Bi00CCC00 

00013 

R 

100037 

R 

JMS LFTPK 

/MOVE 59 C SI ONE LEFT 

00 014 

R 

003034 

A 

34 

/AC«AAAAAA08B8B8CCC000 

00015 

R 

060060 

E 

OAC# NAME 


0 0 016 

R 

440W00 

R 

ISZ FILMAM 


00017 

R 

820000 

R 

LAO FILNAM 

/AC»CCCXOOODOnyEEFEEER 

00080 

R 

640517 

A 

LPS 17 

/AC«0&000*0*0fl&«*lfl&eCC 

0 0 0 21 

R 

3 6 0 a. 5 0 

E 

TAD* NAME 

/AeaAAAAAABBBBBSCCCCCe 

00082 

H 

060050 

E 

0AC# NAMg 


00083 

R 

640683 

A 

L L S 23 

/AC«DDDDDOXEEEEEE00000 

0002 4 

R 

500051 

R 

AMD C773777 

/FORCE AC 6 TO 0 

00025 

R 

10S037 

R 

JMS LPTPK 

/MOVE 8 »E 58 ONE LEFT 

00086 

R 

003740 

A 

3740 

/AC«OOODDDEEEEEE000000 

00087 

R 

060047 

R 

DAC# NAME1 


00.0 

R 

800046 

R 

LAC SAVAC 

/ACbMFFFFFF00^00000000 

00031 

R 

640513 

A 

IRS M 

/AC1000M0&00000XFFFFFf 

00(038 

R 

900052 

R 

AMD (77 

/FORCE AC 1! TO 0 

0 0 0 33 

R 

360K47 

R 

TAD^ NAM£i 

/AC®ODDODOEFEFEgFFfFFF 

010 0 34 

R 

060047 

R 

OAC# NAME! 


000 35 

R 

440000 

R 

I8Z FILNAM 


009136 

R 

620000 

R 

JMP# FILNAM 



.EJECT 



PAGE 2 film $RC ROUTINE Tn CONVERT 5/7 ASCII TO SIXRIT ASCII 

00037 8 QG0*8&pi A LFT^K 0 . 

00040 R 040045 R OAC ft 

00041 R 520037 R ANO& LFTPK' • 

00§42 R 340048 R TAD Tl 

■30043 R 440837 R ISZ LFTPK 

00044 R 62003? R JNP* LFTPK 

/ 


00045 R 000000 A Tl 0 

00046 R 000000 k 8AVAG 0 

00047 R 000000 A NAME1 0 

000000 a a end 

00050 R 000050 | *E 

00051 R 77377? A 

00052 R 000877 A ®l 

SIZE"RRG53 NO ERROR LINES 




48 



PAGE 


1 


«4 SUBROUTINE TO CONVERT 5/7 ASCIl'TO 0 B!T iS 



TITLE H SUBROUTINE TO CONVERT S/7 ASCII 

GLOBL N4M£ # FILNAM 





R 

000000 

A 

/ 

FIUNAM 

0 


m 0 § 0 | 

ft 

04006! 

R 


OAC SAVAC» 

/SAVE LAST ARGUMENT 

00002 

ft 

220000 

R 

A 

LAC# FILNAM 

/GET FJRS? 





/ 

/GST 2 

AND 1/8 SIXBIT CHARACTERS 

0 00 9 3 

R 

740010 

A 

f 

R AL 


00004 

ft 

040062 

R 


0AC TEMPil 


® 0 0 a § 

ft 

300064 

p 


AND (770000 


00 00 6 

R 

060063 

E 


DAC# NAME 


00 00 7 

R 

200062 

R 


LAC TEHP 


0 0 010 

R 

740010 

A 


RAL 


0 0 0 11 

R 

040062 

R 


OAC TEMP 


00012 

R 

500065 

R 


AND C007700 


a a a 13 

R 

360063 

E 


TAD# NAME 


310 0! 4 

R 

060063 

& 


DAC# NAME 


00015 

R 

2P006? 

p 


LAC TEMP 


00016 

R 

74001P 

A 


ral 


00017 

R 

500066 

R 


AND (000070 


00 020 

R 

040062 

R 


DAC TEMP 


000S1 

R 

44000P 

R 


ISZ FILNAM 


00022 

R 

220000 

R 

A 

LAC# FILNAM 

/GET SECOND 





f 

/COMPLETE 5 SIX BIT 

A 

CHARACTERS 

00023 

R 

500067 

R 

? 

ANO (700000 


■30024 

R 

744000 

A 


CLL 


30325 

R 

742010 

A 


rtl 


30326 

R 

742010 

A 


RTL 


33027 

R 

340062 

R 


T AO TEMP 


00030 

R 

360063 

E 


T AO# NAME 


30031 

R 

060063 

F 


OAC# NAME 


00332 

R 

223000 

R 


LAC# FILNAM 


30333 

R 

742010 

A 


rtl 


3 0 0 3 4 

R 

742010 

A 


rtl 


3 0 0 3 5 

R 

840068 

R 


OAC TEMP 


803136 

R 

S0i0@4 

R 


ANO C770000 


00037 

R 

440083 

E 


ISZ NAME 


0 0 04 0 

R 

$60063 

E 


DAC# NAME 


00041 

R 

200062 

R 


LAC TEMP 


0004g 

R 

740010 

A 


RAL 


0004 3 

R 

500065 

R 


AND (007700 


00044 

R 

360063 

f» 


TAO# NAME 


30045 

R 

380063 

E 


OAC# NAME 


00046 

R 

200061 

R 


LAC SAWAC 

/assemble last six 

00047 

R 

742030 

A 


SWHA 

/CHARACTER 

30050 

R 

742080 

A 


RTR 


3005| 

R 

500078 

R 


AND C000077 




Gfc ? 


FILENM SRC 


000 S 2 

R 

360063 

E 


TAO* NAME 

0®®53 

R 

0S0063 

E 


QACf NAME 

09054 

R 

777777 

A 


LA* ®! 

«®S3 

R 

340083 

6 


TAO NAME /restore content of NAME 

08056 

R 

040063 

C 


D.4C NAME 

0035? 

R 

44000 ® 

R 


181 FILNAM 

0006® 

R 

62000® 

R 

£ 

JMR* FJLNAM 



080000 

A 

/ 

@ lwp 

00®63 

R 

000063 

F 

*e 


00064 

R 

77000® 

A 



00065 

R 

007/0® 

A 

*L 


00066 

R 

00007® 

A 

*L 


0006? 

R 

70000® 

A 

*1 


08070 

R 

000077 

A 

*1 




SIZE 

NQ ERROR LINES 





1 


a src 


PROGRAM. TO allocate space for random access file 

.TITLE PROGRAM TO ALLOCATE SPACE FOR RANDOM ACCE 

/9999000900900009090090000990990900000090900090909Q00009 
/ 

/WHIN STARTED® THE PROGRAM EXPECTS TO FIND THE NAME 
/AND DESIRED LENGTH OF THE PILE IN THE DATA SWITCH 
/REGISTER. THE PROGRAM HILTS 3 TIMES . 

/ 15place first 3 chars es bit) of -name in dsp 

/ 23 PLACE SECOND 3 CHARS (8 BIT) OF NANS' IN OSR 

/ 33 PLACE 3 CHARS (6 BIT) Of EXTENSION IN QSR 

/ 4)PLACE DESIRED LENGTH OF FILE IN BLOCKS IN OSR 

/ - : 

/WHIN OPERATOR HITS THIRD CONTINUE^ PROGRAM CREATES 
/THE DUMMY FILE I BLOCK LONGER THIN SPECIFIED IN THE OSR 
/NOTE THAT THE EXTRA BLOCK IS USED TO HOLD THE »RIB% 
/RETRIEVAL INFORMATION BLOCK @ WHICH IS NECES5AftV , FOR 
/RANDOM ACCESS OPERATIONS® DON'T TRY TO FOOL THE PROGRAM 
/BY PLACING A VALUE I LESS THAN THE DESIRED LENGTH IN 

/THE DATA switch.register. 

/ 

00.00000000 ©0^99© 

/ 

®I ODEV 4 

/ 





A 

OUT® 1 
/ 



ft ft ft ft ft 

R 



START 

. IN 

TT 4,01 





/ 




R 

74004ft 

A 


HIT 


ft ft ® ft 5 

R 

750004 

A 


LAS 


ftftftftS 

R 

ft4ftft4g 

R 

/ 

OAC 

NAME 

S»«P7 

R 

74004® 

A 


HIT 


ftftftl ft 

R 

750004 

A 


LAS 


ft ft ft 1 % 

R 

ft 4 ft ft 4 3 

R 

/ 

OAC 

NAME*! 

ft 1 2 

R 

74004® 

A 


HIT 


ft l 3 

R 

750004 

A 


LAS 


ft ft ft i 4 

R 

040044 

p 

/ 

OAC 

EXT 

ftftfti 5 

R 

74004® 

A 


HLT 


ft 1 6 

R 

750004 

A 


LAS 


ftftfti? 

R 

74|30ft 

A 


SPA 

1 SNA 

ft ft ft $ ft 

R 

@00040 

R 


JMP 

EXIT 


R 

740031 

A 


TC A 



R 

040443 

R 


OAC 

COUNT# 


/ 


iT.ft /INITIALIZE output PEVIC 

/halt tp 

/PICK UP FIRST 3 CHARACTERS 
/OF NAME AND SAVE 

/HALT .TO 

/PICK UP SECOND 3 CHARACTERS 
/OF NAME AND SAVE 

/HALT to 

/PICK UP S CHARACTER EXTENSION 
/AND SAV| 

/HALT TO 

/PICK UP DESIRED.FILE LENGTH 
/LEGAL ONLY IF STRICTLY POSITIVE 
/OTHERWISE EXIT 
/MAKE IT A NEGATIVE COUNT 



EJECT 







PAGE 



00026 R 


acaa 4 8 440443 
38035 R S00086 

3 0 3 4 0 R 


e ENTER <4 9 NAME 
OUTPUT 9 WRTTE 4 ? 3»BUFF s 254 
.WAIT 4 

i$z count- 

JMP OUTPUT . 

«CLOSE 4 
EMIT .EXIT - 
/ 


/GET DIRECTORY ENTRY FOR 

/write it Outgone flock 

/ARE WE DONE? 

/NO-»«pBACK FOR MORE 
/¥£$»«CLOSE FILE 
/BY E * • « 




?? 0@42 8 9808001 A NANg 

0F043 ft 308000 A 

00044 R 080000 A EXT 


0004*5 ft 177000 A BUFF 

00046 R 000000 A 

30047 R 000005 A 

/ 


000000 ft 

$IXE «§00444 


0 

0 

0 


a END START 
NO ERROR LINES' 









BASE 1 FIU3LK SRC PPOGNAM TO LIST SLOCKS USED, BY A FILE 

.TITLE PROGRAM TO LIST BLOCKS USED BY A PILE 

' S . ■ ‘ / . 

■/ 

/PROGRAM ASKS 'FOR THE NAME OF A FILE WHICH XS STORED 
/ON THE DEVICE ASSOCIATED WITH OAT 3 fDISK OR DSGTAPE1. 
/IF THE FILE EXISTS, THE BLOCKS USEE) BY THE PILE ARE 
/LISTED ON THE DEVICE ASSOCIATED WITH OAT IS (TT OR LPJ. 
/IF THE FILE DOES NOT EXIST ON THE DEVICE. A MESSAGE 
/TO THAT EFFECT IS PRINTED ON THE TT, 

/ 

/Q8090O090 980 00 09.000.00 9098 0000000800 900® 0008008 9880G®® 88 


000000 a 

000001 A 


,r'"”N S|! 


00034 R 



000@g R 201107 R 
00053 R 121105 i 
00064 R 000002 A 

910085 R 000647 R 


88870 R 201119! R 
9»3071 R 12H05 F 
00072 R 000001 I 
00073 R 00069! R 


e a08L 1A26Bi OTOASC 

/ 

,10DEV 3,12 ' 

|N@0 

OUT® 1 
/ 

START „INIf 3 S |N P 0 /SETUP 3 FOR INPUT CPU!!) 
a INIT ®2 @ OUTs0 


a lN!T 12 1 OUTg 0 / SETUP 12 FOR OUTPUT CT? OR LR 

. XNIT ^SgXN.OVgR 

/ . , . . . 

/ GST FILS NAME AND EXTENSION 


.WRITE *2»2pMSaS|,34 /TYPE 

.WRITS *2 s 2 p MESS 1 A ,34 
.WRITE ^2s2pMES8f @ 34 /EXAMPLE 

LIST 8 WRITE ®2p2 s MESS3,34 /NAMg@ 

©WAIT ®S 

/ /READ IN NAME 

e READ «3,3,8UFFN b 8 
.WAIT *3 

s WStITg M£§§4,34 /EXT® 

a WAIT «2 

9 READ ®3 @ 3 f 8UFFE,5 /READ 


N EXTENSION 


LAC CBUFFNt? 
JHS* JA8SB 


/WHILE REAPING CXTCNSX 1 
/TRANSLATE NAME 
/NUMBER OF SIX® BIT WORDS 


NAME 


©WAIT «3 

/ 

LAC (8UFFE+2 
JMSt IA888 
1 

ex? 


/WAIT POR IXTfNilON READ 


/ 


/NUMBER OF SJUm SIT WORDS 




PXLBLK SRC 


PROGRAM TO LIST'SLOCKS USED 

i 

OUT IF FILE EMfgTS 


88874 

R 

100174 

R 

J 

JNS HRNAME 







¥ 

,FST4T 3.NAMC 



1«« 

R 

741800 

A 


SNA 

/DIO ■ 

IT 

8«in 

R 

800887 

R 


JMP NO I ST 

/NO®@ 

80 

00188 

R 

040183 

R 

8LKNUM 

OAC TRAN*8 




001^3 n l?i!£?6 F 
R 00084® R 


/ 

/ SET SLOCK #$ AND PRINT 
/ 

/******************#* 




JM$* QY0A9C 
iUFASC 

@ WiITE 12,g.CRLFi* 
.WAIT Jg 

■ WRITE 18 s 3# 8LKN0 @ 8 
.WAIT IP 


00181 

R 



TRAN 

@ TRAN 3 sIN g i 






©WAIT 3 

0«i30 

R 

200646 

R 


. LAC BUFF#<377 

00131 

R 

54ii.il 

ft 


SAO C 77777 ? 

00132 

R 

6i®!34 

R 


JMP ENDFIL 

00133 

R 

@00|®S 

ft 


JMP BLKNUM 


/#*******•*•*•*****««#**•#********#***### 

/ 

/ GET MgRg WHEN HAVE 


0 0134 

R 



CNOFIL 

@WRITS i2 @ 2aCRLF@4 







.WRITE Sg g 2 s MM86*54 


00|44 

R 



ANOTHER 

©WRITE ®2 @ a s CRlF 9 4 







.WRITE ^2®i 9 MEg8F # 34 

/WANT ANOTHER FILE? 






®REAO «2,3,BUPMRpS 







@WAIT @8 


00168 

R 

2ii«54 

ft 


LAC 0UFMR*8 


00163 

R 

54|l|g 

B 

F< 


SAD C131 

/131@YES 

00164 

R 

6@0167 

R 


JMP OVER 

/START OVER 





f 

0 EM IT 


00 1S7 

R 



OVER 

e WR|TE ^a @ 8,CBLF»4 


00173 

R 

600034 

ft 


JMP LIST 



/ 



f 1LSLK SRC 


PR06RAM TO 


HOCKS. USED B,V A FILE 


0 (a | 7 4 

9 

000000 

A 

WRNAMg 

0 

.WRITE 

iza 






s w Alt 

19 

002^3 

8 

20067! 

R 


LAC BUFFS 

«S2«4 

R 

341113 

R 


TAD Cliff® ■ 

R0205 

R 

040687 

R 


0AC BUFRND 

0®2®6 

R 

201114 

R 


LAC CS0 

0&8«7 

R 

040671 

R 


DAC BUFFS 

@0§ii 

R 

201115 

R 


LAC Cil 

49211 

R 

040872 

R 


OAC SUFFER! 






s WRITE 

If iS 






6! WAIT 

12 






a write 

12,3 






a WAIT 

12 

0®296 

R 

620174 

R 


jNp^ WRNAHg 

00227 

R 



/ 

N6XIST 

.WRITE 

12,2 






.WAIT 

12 

0P235 

R 

600144 

p 

/ 

JMP ANOTHER 





/ 

4 





f 

/. BUFFERS 

i 






& 

3 

##♦*#*#*#*#**' 

00236 

R 

004003 

A 

/ 

8LKHD 

004003 


00237 

R 

iP0i» 

A 


0 


mzm 

P 


A 

iUFASC 

.BLOCK 

6 

00246 

R 

000015 

A 

i 

15 


0P247 

R 


A 

BUFF 

3 

® BLOCK 

40® 

00847 

R 

000000 

A 

V 

N AN£ 




R 


A 




M65f 

R 

00000* 

A 

EXT 

i 

0 


mn^2 

R 


A 

r 

auFHR 

m 

0 BiecK 

4 

00656 

R 

000000 

A 

# 

BUFPN 

0 


@@@57 

R 

000000 

A 


0 


@3@6i 

R 


A 


® BLOCK 

g 

00866 

R 

i®0!75 

A 


175 


0@86? 

R 

000083 

A 

SUPIHQ 

mmm 


00670 

R 

000000 

A 


0 


0®67| 

R 

000000 

A 

9UFFE 

0 


80672 

R 

i®i»00 

A 


0 


00673 

R 


A 


.block 

3 

09670 

R 

000015 

A 


1.5 



CRIF 




/SET UR FOi TRAN OF SLOCK 



SI 


FILSLK SRC ; ' ‘MfSS'ASi- PACI 

.title Hcss'Aae pa& 


00677 

R 

817000 

A 


R 


A 

@ 070 ! 

R 

588638 

A 

00702 

R 

@42500 

A 

@@703 

R 

446344 

A 

00704 

R 

S 405 S 0 

A 


R 

438531 

A 

00700 

R 

44610 ® 

A 

007 P 7 

R 

33101 ® 

A 

00710 

R 

344 g §8 

A 

@0711 

R 

31203 P 

A 

@0712 

R 

35281 ? 

A 

00713 

R 

511011 

A 

00714 

R 

@40038 

A 

00718 

R 

42 § 0 @@ 

I 

@« 7 I 6 

R 


A 

00717 

R 

4 @ 635 @ 

A 

@ 072 ® 

B 

48 @g §0 

A 

@0721 

R 

44 g 45 @ 

A 

00728 

R 

94830 C) 

A 

@0783 

R 

416210 

A 

@@784 

R 

1 S 1808 

A 

0078 S 

R 

41651 ® 

A 

@@786 

R 

§ 5 i im 

A 

7 

R 

426618 

A 

0 @ 73 @ 

R 

442034 

A 

@0731 

R 

§ 1 @ 831 

A 

@0738 

R 

747134 

A 

@0733 

R 

0640 @@ 

A 

@@734 

R 

0 @@ 0 f@ 

k 

00735 

R 

@06009 

A 


R 

PP 10 MP 

A 

@0737 

R 

432831 

A 

i @7 40 

R 

44 i|@@ 

A 

@@ 74 ! 

R 

446344 

A 

@0748 

R 

§47258 

A 

@0743 

R 

462318 

A 

@0744 

R 

328850 

A 

@0745 

R 

446511 

A 

0@740 

R 

§80104 

A 

M 7 A 7 

R 

4 @|@ 4 t 

A 

ml 90 

R 


A 

@@751 

R 

§ 1 M@@ 

A 

mi 98 

R 

800000 

A 

@@753 

R 

438378 

A 

@@784 

R 

2 g@ 8 lf 

A 

@0755 

R 

542@31 

A 


NESS! ■ MESSliUME8Si/a*itB0..-'. ' \ 

• @ •• ".\ ' ■ - • . . - . - • • . 

■■ .«ASCII ./TYRf : IN A FULL 6 CHARACTER NAHf ,■/■■ ■ 


.ASCII /AND .THREE CHARACTER eVT 8 NSIpN-l/ 41 SS 


/ • 
NESSIA MISSg^HESSIA/2«10R& . 

a 

® ASC 11 /FILL.IN NULLS WITH 


/ ■ • . 

MB 858 ME'SS3«MrSS9/2*l0iBP 
0 

« ASCI I /FOR EXAMPLEI/ 
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FIL8LK SRC 

MESSAGE PAGE ■ " ; V-'- 


5WSS 

& 

550230 

I 




00757 

R 

<925500 

A 




mim 

R 

088888 

h 




mi si 

R 

478031 

A 


. ASCII /NAHe«80*TM/«l iP/iXT*SRC/«‘lB* 


88762 

R 

S48S72 

A 




was 

R 

51637? 

A 




mi 64 

R 

258800 

1 




m?B5 

R 

400830 

A 




00766 

R 

594850 

A 


. ■ .■■ • ' . - v. • 


00707 

R 

366478 

A 



; % 

00T70 

R 

841432 

A 




00771 

R 

083000 

A 

/ 

M6S8S 

He884«MES8'3/2*1000 ' • . 


00772 

R 

000000 

A 



[ 

®0773 

R 

378350 

A 


©ASCII ' - 

i > 

00774 

R 

146618 

k 




00779 

R 

367780 

A 


.'■’■■■'■ ' . ■ • • •’ ••■•_ . - 


00776 

R 

800088 

A 

A 

' ‘ . 


00777 

R 

i030iP 

A 

/ 

HESS4 

MKS89®MgS84/8#!®8@ 


01 000 

R 

000000 

A 


0 


01001 

R 

046133 

A 


a A®CI 1 «11*/EXT»/«179* 


01002 

R 

052172 

A 




01003 

R 

704@@0 

A 


■ ■ . - 1 


01M4 

R 

§@OT@fi 

A 





R 

002880 

A 

/ . 

new 

0ES$6«0ESS5/8*1800 


01006 

R 

mmm 

A 


8 


01007 

R 

801084 

A 


.ASCII / /«!3» 


.01010 

R 

006400 

A 

i 



01011 

R 

886800 

A 

MESS6 

ME8$7«.MESa6/2M000 


81818 

R 

000000 

A 


0 


01013 

R 

522210 

I 


.ASCII /THAT’S ALL THfRE I31/*IBP 


01014 

R 

152116 

k 




01019 

R 

5I50I@ 

A 




01016 

R 

f4623® 

A 



\ 

®iai7 

R 

208511 

A 




01080 

R 

042S44 

1 




01081 

R 

485011 

A 




01022 

R * 

131908 

k 



V .,^ 

0l®83 

R 

0S40M 

A 




01024 

R 

00000® 

A 




®i@8§ 

D 

PH 

01700® 

A 

/ 

H0SS7 

0KSS0«»Mf 387/8*1000 


iii2@ 

R 

000000 

A 


3 


il«87 

R 

482364 

A 


s ASCII /DO ¥0U ^ ANY ANOTHER FILE?/ 


$103® 

R 

054636 





01031 

R 

589018 

A 




01032 

R 

74®634 

A 




01033 

ft 

52101® 

k 




0|®34 

R 

14783§ 

A 
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PAGE 6 


filslk spc 


MESSAGE PAGE 


ft 5228!® A 
$1030 R. 98110® A 
01037 R 432831 A 
R 442970 A 
a 1 ®41 R 406338 A 
01042 R 3S3612 A 
11043 R S 1101S A 
01044 R 13ig|4 A 
0I04S R 47S444 k 
31146 R 054@i§ A 
01047 R 915340 A 
«S|9i R OT@0if! A 
■31051 R 26S330 A 
81098 R 147868 A 
81093 R 528211 A 
01054 R |472|6 A 
01059 R 208131 A 
01096 R 45 IS18 A 
01057 8 202151 A 
01060 ft 791100 A 
01061 ft 478361 A 
01062 R 9@3«@ A 

/ 

01063 R 00700® A MSSSB 

01064 R 00000® A 

01069 R 808111 A 

01066 R 748646 A 

01067 R 202351 'h 

01070 K 7581®® A 

01071 R 426611 A 

01®?2 R 15169® A 

01073 R 808371 A 

01074 R 680810 A 

01075 R 48@5S| A 

0i@76 R 141612 A 

311077 R @@400® A 
@1100 R 000000 A 

/ 

@1101 R 008000 A CRIF 

'31102 R @0000® A 
@H@3 R 06400P A 
@l!@4 R A 

•30000® R 
01109 R @01105 E 
@1136 R 301106 F 
3511 @7 R @0066® R &L 
01110 R 000073 R *L 
mil R 777777 A *L 
RHia » 00013! A *L 
@1113 R A #1 

0U14 R A *L 

@1115 R 0@@01l A 

SJZF-«*11 16 


ASCII 7ANSWER ¥ FOP YES,/ 


ascii /^anything else for no/«i5r 


CRUF-MESS8/2*13F0 


e ASCII / DOES NOT EXIST ON 0gVieE/«i|5» 


0 

.ASCII *15> 
®end start 


NO E^flOR tJNJS 



SL 

EXAMPLE OF FILBLK USE 

TO THE TELETYPE 
U TT 12 


LOA1EP V3A000 
>«-FILBLK 9 OTOASC ? 1A26B 


TYPE IN a FULL 6 CHARACTER NAME AN® THREE CHARACTER EXTENSION • 

FILL in nulls with 

for EXAMPLE!NAME =SORT@@ EXT=SRC 

>NAME=MAIN1@ EXT = SRC 

riA I Nl@ SRC 

000520 

300522 

THAT'S ALL THERE IS! 

SO YOU WANT ANOTHER FILE? ANSWER Y FOR YES"-ANYTHING ELSE FOR NO 
N 

10S-15 V3A000 
$L 

TO THE LINE PR INTER 
$A LP 12 


SGLOA® 

L0A9ER V3A000 
>«~FILBLK s,QT0ASC ,IA263 

TYPE IN A FULL 6 CHARACTER NAME AN® THREE CHARACTER EXTENSION• 

FILL IN NULLS WITH 

FOR EXAMPLEl NAME = SORT@@ EXT=SRC 

m A yIu M ^nt @ another = file? answer y for yes-anything else for no 
N 


®OS-15 V3A000 

s 


M A T N 1 SC'C 

ft0ftb?ft 
ft ft ft b a 2 

TH A T • § A LL THERE T S i 


59 
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City • WASHINGTON. Bellevue • WISCONSIN. Milwaukee • ARGENTINA. Buenos Aires • AUSTRALIA. Adelaide. Brisbane, Crows 
Nest. Melbourne. Norwood. Perth and Sydney • AUSTRIA. Vienna • BELGIUM, Brussels • BRAZIL. Rio de Janeiro. Sao Paulo 
and Porto Alegre • CANADA. Alberta. Vancouver. British Columbia; Hamilton, Mississauga and Ottawa. Ontario; and 
Quebec • CHILE, Santiago • DENMARK, Copenhagen and Hellerup • FINLAND. Helsinki • FRANCE. Grenoble and Rungis • 
GERMANY. Cologne. Hannover. Frankfurt. Munich and Stuttgart • INDIA. Bombay • ISRAEL, Tel Aviv • ITALY, Milano • JAPAN. 
Osaka and Tokyo • MEXICO. Mexico City • NETHERLANDS. The Hague • NEW ZEALAND. Auckland • NORWAY, Oslo • 
PHILIPPINES. Manila • PUERTO RICO, Miramar and Santurce • REPUBLIC OF CHINA, Taiwan • SCOTLAND, West Lothian • 
SPAIN, Barcelona and Madrid • SWEDEN, Solna and Stockholm • SWITZERLAND, Geneva and Zurich • UNITED 
KINGDOM. Birmingham, Bristol. Edinburgh, London, Manchester, Reading and Warwickshire • VENEZUELA, Caracas 






